mám makro:
Kód: Vybrat vše
sub LOGO()
Select Case Range("U6").Value
Case "Picture 1": ShowPicture ("Picture 1")
Case "Picture 2": ShowPicture ("Picture 2")
Case "Picture 3": ShowPicture ("Picture 3")
Case "Picture 4": ShowPicture ("Picture 4")
End Select
End Sub
Sub ShowPicture(picname As String)
On Error Resume Next
Sheets("Titulní_list").Shapes("Picture 1").Delete
Sheets("Titulní_list").Shapes("Picture 2").Delete
Sheets("Titulní_list").Shapes("Picture 3").Delete
Sheets("Titulní_list").Shapes("Picture 4").Delete
On Error GoTo 0
Sheets("Pom. Výp.").Shapes(picname).Copy
Sheets("Titulní_list").Range("G10").Select
Sheets("Titulní_list").Paste
End Sub
které mi při změně firmy v buňce vrátí logo společnosti (obrázek).
Jenže se spustí pomocí tlačítka, což nechci. Jsem amatér co se týká VBA, a proto nevím, jak nastavit makro aby se spouštělo se změnou v dané buňce :(
Prosim o radu.
díky Tom