Ich möchte einen Scanner über die Twain Schnittstelle direkt in Excel
anspechen natürlich über VBA!! Der Befehl steht unter Einfügen / Grafik /
von Scanner (Auch ein eigenenes Icon stellt Excel zur Verfügung).
Danach möchte ich das importierte Ergebnis abfangen, benennen
und verändern. Ich habe dies erfolgreich mit einfachem Bildimport gemacht,
kann jedoch keine Funktion in VBA für den Scanner finden.
Herzlichen Dank für Eure Hilfe
Michael Rapp
Ra...@fengshuiPC.de
Dim cb As CommandBar
Dim cbp As CommandBarPopup
Dim cbp1 As CommandBarPopup
Dim cbc As CommandBarControl
Set cb = Application.CommandBars("Worksheet Menu Bar")
Set cbp = cb.Controls("&Einfügen")
Set cbp1 = cbp.Controls("&Grafik")
Set cbc = cbp1.Controls("Von &Scanner oder Kamera...")
cbc.Execute
Dem anschliessenden Dialog kann man vielleicht mit einem SendKey beikommen.
--
Mit freundlichen Grüßen
Eckehard Pfeifer
VBA-WorkShops in Dresden, Info unter www.dr-e-pfeifer.de
Ein Blick lohnt sich immer: www.vba-magazin.de
danke für die schnelle Antwort. Ich verstehe nicht den Trick hinter dieser
Folge von Set Kommandos. An Ende gibt mir Excel folgendes: Laufzeitfehler
'-2147467259 (80004005)': Die Methode 'Execute' für das Objekt
'_CommandBarButton' ist fehlgeschlagen.
Irgend eine Idee was das zu bedeuten hat?
Danke für die Hilfe
Michael Rapp
fengshuiPC
"Dr. Eckehard Pfeifer" <pri...@dr-e-pfeifer.de> schrieb im Newsbeitrag
news:Ojv8xOwrAHA.1724@tkmsftngp05...
MfG Eckehard
du hast vollkommen Recht. Bei mir läuft es nun auch prima. Das Problem
bestand darin, daß meine Arbeitsblätter geschützt sind - jedoch NICHT für
Objekte. Seltsamerweise verhindert dies das Importieren von Grafiken nicht
jedoch das Einfügen aus der Zwischenablage. Etwas unverständlich! Ich
werden eine Unprotect Routine einbauen, dann wird es funktionieren.
Herzlichen Dank
Michael Rapp
Ra...@fengshuiPC.de
"Dr. Eckehard Pfeifer" <pri...@dr-e-pfeifer.de> schrieb im Newsbeitrag
news:O8XBgUHsAHA.1924@tkmsftngp03...