bild in symbolleiste
joel
ich habe folgende prozedur geschrieben, um einer symbolleiste oder einem menu ein benutzerdefiniertes bild hinzuzufügen. bei mir zu hause auf winXP und office XP funktioniert dies bestens. im geschäft (office 200, win NT) klappt dies jedoch nicht, weil er die picture-eigenschaft des commandbarcontrol-objektes nicht kennt. liegt wohl an der bibliothek "Active data objects v2.6" gegenüber v2.7 bei mir zuhause.
kann mir hier jemand weiterhelfen?
evtl. wäre es möglich, das bild in die zwischenablage zu kopieren und dann via
objcommandbarcontrol.pasteface einzufügen..
'benutzerdefiniertes bild hinzufügen
Private Sub ControlPicture(ByRef objCommandBarControl As Office.CommandBarControl, _
ByVal sPicture As String, _
Optional ByVal sMask As String = "")
Dim objPicture As stdole.IPictureDisp
Dim objMask As stdole.IPictureDisp
With objCommandBarControl
If .Type <> msoControlButton Then Exit Sub
'bild laden
If sPicture = "" Then Exit Sub
sPicture = ThisWorkbook.Path & "\" & sPicture
If Dir(sPicture) <> "" Then
Set objPicture = LoadPicture(sPicture)
.Picture = objPicture
End If
'maske laden
If sMask = "" Then Exit Sub
sMask = ThisWorkbook.Path & "\" & sMask
If Dir(sMask) <> "" Then
Set objMask = LoadPicture(sMask)
.Mask = objMask
End If
End With
End Sub
danke für eure hilfe
gruss joel