Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

workbook_open rechteMausTaste Zellinhalt Drucken

workbook_open rechteMausTaste Zellinhalt Drucken
22.08.2005 21:46:35
mehmet
guten tag forum,
einige spalten sind mit links versehen sind die zielseite
ist immer eine *.pdf datei, die ich drucken moechte ohne diese zu oeffnen.
ich weiss, dass das mit dem explorer-browser geht.
auf schmittis page http://www.schmittis-page.de/index.html?/excel/menue/t5.htm
steht zwar einiges ueber kontextmenu aber wie kann man diese anpassen
kann man das gleiche mit vba excel realisieren?
dank und gruss
mehmet

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: workbook_open rechteMausTaste Zellinhalt Drucken
22.08.2005 21:51:07
mehmet
hallo,
das habe ich gefunden:
Const t = "Meine eigene Routine"

Sub Kontextmenü_Erweitern()
Call Kontext_Löschen
Dim Kontext As Object
Set Kontext = CommandBars("Cell").Controls.Add
Kontext.BeginGroup = True
With Kontext
.Caption = t
.OnAction = "MachWas"
.FaceId = 122
End With
End Sub



Sub Kontext_Löschen()
On Error Resume Next
CommandBars("Cell").Controls(t).Delete
End Sub



Sub MachWas()
MsgBox "Hallo, da bin ich !", vbExclamation
End Sub

machWas sollte die zieldatei drucken
gruss
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige