MS Excel

Téma: Podmíněné vložení

Zaslal/a Petr 29.7.2014 14:42

Ahoj všem,
mám prosbu nevíte někdo jak můžu vložit podmíněně nějaký objekt např. obrázek?
=KDYŽ(A1>1;VLOŽ(NEJAKÝ OBJEKT);"")

Díky moc

Zaslat odpověď >

Palooo(29.7.2014 15:00)#020755

s funkciou od Microsoftu netusim ale dala by sa spravit vlasna na toto :)citovat

zac1234(29.7.2014 15:22)#020758

AltF11 vložit do list code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value > "1" Then
Application.ScreenUpdating = False
Range("B9").Select
ActiveSheet.Pictures.Insert( _
"C:\1.jpg").Select
Selection.Name = "C:\1.jpg"
Range("A2").Select
Application.ScreenUpdating = True
Else
On Error Resume Next
ActiveSheet.Shapes("C:\1.jpg").Delete
End If
End Subcitovat

Palooo(29.7.2014 15:43)#020759

no ja som to kedysi robieval tak ze som objektu shape menil obrazok

edit.

resp. ked uz tam je nacitany obrazok tak potom staci uz len takto:If aRange > 1 Then
ActiveSheet.Shapes.Range("Rectangle 2").Fill.Visible = msoTrue
Else
ActiveSheet.Shapes.Range("Rectangle 2").Fill.Visible = msoFalse
End If

napr. takto:

Příloha: zip

20759_test.zip (14kB, staženo 27x)

citovat

cmuch(30.7.2014 6:39)#020775

Pokud budou obrázky v sešitě tak lze.

Příloha: zip

20775_obrdobunky.zip (89kB, staženo 27x)

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.