ich würde gern das Kontextmenü, das bei Rechtsklick auf eine eingefügte Grafik erscheint deaktivieren
oder alternativ ein Makro ausführen.
Hat jemand ´ne Idee?
Viele Grüße
Mathias
Sub test()
Dim i As Integer
For i = 1 To CommandBars.Count
If CommandBars(i).Type = msoBarTypePopup Then
Application.CommandBars(i).Enabled = False
End If
Next i
End Sub
Viele Grüße
Herby
Private Sub Workbook_Activate()
Application.CommandBars("Pictures Context Menu").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Pictures Context Menu").Enabled = True
End Sub
Gruß K.Rola