![]() |
Betrifft: Kontextmenü Grafik
von: Mathias
Hallo,
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
![]() |
Betrifft: AW: Kontextmenü Grafik
von: Herby
Geschrieben am: 18.05.2008 06:42:13
Hallo Mathias,
probiers mal so:
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
![]() |
Betrifft: AW: Kontextmenü Grafik
von: Mathias
![]() |
Betrifft: AW: Kontextmenü Grafik
von: Fred
Geschrieben am: 18.05.2008 09:40:13
Hi,
Grafik ist ein Sammelbegriff, welche Art Grafik ist gemeint?
mfg Fred
![]() |
Betrifft: AW: Kontextmenü Grafik
von: Mathias
Geschrieben am: 18.05.2008 11:45:14
Hi Fred,
eine in Excel eingefügte JPG-Datei.
Viele Grüße
Mathias
![]() |
Betrifft: AW: Kontextmenü Grafik
von: K.Rola
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
![]() |
Betrifft: AW: Kontextmenü Grafik
von: Mathias
Geschrieben am: 18.05.2008 17:01:27
Hallo,
vielen Dank für denn Tipp. Funktioniert einwandfrei.
Viele Grüße
Mathias
![]() |