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

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