Užitočné (3) | ivka70, avalik, Ing. Ľubomír Janoška |
Private Sub Worksheet_Change(ByVal Target As Range) Dim SkumanaBunka As Range Set SkumanaBunka = Range("A1") Select Case SkumanaBunka Case "x" ActiveSheet.Shapes("Obrázok 1").Visible = True ActiveSheet.Shapes("Obrázok 2").Visible = False Case "z" ActiveSheet.Shapes("Obrázok 1").Visible = False ActiveSheet.Shapes("Obrázok 2").Visible = True Case Else MsgBox "Nepoznám" End Select End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Dim SkumanaBunka As Range Dim Pic As Object Set SkumanaBunka = Range("A1") For Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic On Error Resume Next ActiveSheet.Pictures.Insert ("C:\Users\Uzivatel123\Desktop\obrazky\" & SkumanaBunka.Value & ".jpg") End Sub
Užitočné (1) | avalik |
Excel-priradenie obrazku na zaklade hodnoty