Grafik Makro zuweisen
07.02.2008 16:09:07
Gerhard
ich möchte einer per VBA eingefügten Grafik ebenfalls per VBA das Makro 155801v (Bild auf Doppelklick vergrößern und verkleinern, aus dieser Website) zuweisen.
Die Grafikeinfügung erfolgt in einer Schleife .
Hier der Code:
For intRow = 8 To Range("A65536").End(xlUp).Row 'Erster Bildname steht in A8, letzter in A65536
Cells(intRow, 3).Activate
With Cells(intRow, 3)
.Value = lblSelSize1.Caption
.NumberFormat = ";;;"
End With
ActiveSheet.Pictures.Insert(APath & Cells(intRow, 1)).Select 'liest Dateinamen aus intRow aus
dHeight = ActiveSheet.Pictures.Height
Cells(intRow, 3).RowHeight = dHeight + 3
Cells(intRow, 3).OnAction = "BildGroesse" 'klappt nicht, keine Fehlermeldung
Next
Wie bekomme ich die Zuweisung hin?