< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#020755
avatar
s funkciou od Microsoftu netusim ale dala by sa spravit vlasna na toto :)citovat
#020758
avatar
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
#020759
avatar
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: zip20759_test.zip (14kB, staženo 26x)
citovat
#020775
avatar
Pokud budou obrázky v sešitě tak lze.
Příloha: zip20775_obrdobunky.zip (89kB, staženo 26x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Podmínka pro spuštění makra

elninoslov • 19.3. 9:19

duplicity

elninoslov • 19.3. 9:13

Podmínka pro spuštění makra

MilanKop • 18.3. 18:51

Podmínka pro spuštění makra

Stalker • 18.3. 18:34

duplicity

fortes • 18.3. 17:48

Podmínka pro spuštění makra

MilanKop • 18.3. 17:31

spojení vzorců v PQ

elninoslov • 18.3. 15:13