Microsoft Excel

Herbers Excel/VBA-Archiv

Kontextmenü Grafik

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"