PasteFace in VBA

[Cool-Matthias]

Hi,

ich habe folgendes Problem.

Ich möchte einen per VBA erstellten Menüeintrag in Word ein selbst erstelltes Icon hinzufügen.

Was ich bis jetzt rausgefunden habe ist, das sowas nur über die Zwischenablage geht, aber irgendwie funktioniert weder mein zugriff auf die Zwischenablage noch das Pasteface.

Hier ein Auszug aus meinem Code mein Code:

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Declare Function GetClipboardData Lib "user32" (ByVal Format As Long) As Long

Private Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long

Private Declare Function SetClipboardData Lib "user32" (ByVal Format As Long, ByVal HMem As Long) As Long

...

Dim aEntry As CommandBarControl

Dim sFile As String

...

sFile = ActiveDocument.Path + "\open.bmp"

' Eintrag ins Menu erzeugen

Set aEntry = aMenu.Controls.Add(Type:=msoControlButton)

With aEntry

.Caption = "Test"

.Visible = True

If OpenClipboard(0) <> 0 Then

EmptyClipboard

SetClipboardData vbCFBitmap, LoadPicture(sFile)

CloseClipboard

End If

.PasteFace

End With

...

Irgendwelche Ideen?