OLEObject mit Bild
30.11.2008 17:27:00
Sonnenpeter
ich versuch mit nachfolgendem Makro ein OLEObject mit Bild einzufügen.
Public Sub test()
Dim objButton As OLEObject
Set objButton = ActiveSheet.OLEObjects.Add(ClassType:= _
"Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=True, Left:=442.5, _
Top:=75, Width:=32, Height:=32)
ActiveSheet.OLEObjects("CommandButton2").Object.Picture = _
Application.CommandBars.GetImageMso("AccessFormDatasheet", 32, 32)
ActiveSheet.OLEObjects(i).Object.Caption = "Test"
End Sub
Leider gelingt es mir nicht.
Was mach ich falsch? Was ist zu tun?
Gruß SOnnenpeter