MS Excel

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