Herbers Excel/VBA-Archiv

Kontextmenü Grafik

• Kontextmenü Grafik von Mathias vom 18.05.2008 03:03:49
• AW: Kontextmenü Grafik - von Herby am 18.05.2008 06:42:13
  • AW: Kontextmenü Grafik - von Mathias am 18.05.2008 11:49:40
• AW: Kontextmenü Grafik - von Fred am 18.05.2008 09:40:13
  • AW: Kontextmenü Grafik - von Mathias am 18.05.2008 11:45:14
• AW: Kontextmenü Grafik - von K.Rola am 18.05.2008 12:08:09
  • AW: Kontextmenü Grafik - von Mathias am 18.05.2008 17:01:27

Betrifft: Kontextmenü Grafik von: Mathias
Geschrieben am: 18.05.2008 03:03:49

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
Geschrieben am: 18.05.2008 11:49:40

Hallo Herby,

da kommt bei mir nur "Fehler: Variable nicht definiert" (msoBarTypePopup)

Wo müßte ich den Quellcode denn reinschreiben?

In Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

oder vielleicht in Private Sub Worksheet_SelectionChange(ByVal Target As Range) ?

Viele Grüße

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
Geschrieben am: 18.05.2008 12:08:09

Hallo,


Code in das Modul von "DieseArbeitsmappe" kopieren.

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

Beiträge aus den Excel-Beispielen zum Thema "Kontextmenü Grafik"