Herbers Excel-Forum - das Archiv

Kontextmenü Grafik

Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

Bild

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

 Bild
Excel-Beispiele zum Thema "Kontextmenü Grafik"
Grafik in Kopfzeile Export von Diagrammen im Grafikformat
Grafiken im Tabellenblatt ordnen Grafiken an eine Seite anpassen
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt Grafikprogramm aufrufen und Bild laden
Grafik in Abhängigkeit einer Zelleingabe einfügen Grafik nach Doppelklick laden
Grafiken aus ausgeblendeten Blättern einblenden Grafik nach Eingabe des Dateinamens einfügen