Ein Problem, das ich gerne in einem Beispiel zeigen
würde.
Hier: https://www.herber.de/bbs/user/14936.xls
Es geht mir darum, dass bei einer Auswahl das entsprechende Bild aus
der Spalte C dargestellt wird.
Gruss
Günter
Sub Place_Picture()
Dim myImage As String
myImage = "Bild.gif"
ActiveSheet.Pictures.Insert("C:\Bilder\" & myImage).Select
'Platzierung des Bildes
With Selection
.ShapeRange.IncrementLeft 266.25
.ShapeRange.IncrementTop 194.25
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$7" Then
Dim myImage As String
myImage = Range("H7").Value
ActiveSheet.Pictures.Insert("F:\temp\grafik\" & myImage).Select
'Platzierung des Bildes
With Selection
.ShapeRange.IncrementLeft 100.25
.ShapeRange.IncrementTop 100.25
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target
Case Cells(1, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test1.gif")
Case Cells(2, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test2.gif")
Case Cells(3, 11)
Worksheets(1).imgLogo.Picture = LoadPicture("D:\Test3.gif")
End Select
End Sub