johanna-p
Goto Top

Scannen in PowerPoint 2010

Liebe Gemeinde,
ich möchte Bilder / Texte direkt in Powerpoint 2010 einscannen.
In Word 2010 geht das ja mit der Tastenkombination Alt / E G S.
Ich habe von der Seite http://www.rholtz-office.de/add-ins die
"Scanfunktion für Office 2007-2013" downgeloaded und installiert.
Es erscheint jetzt bei PowerPoint ein Scan-Button. Wenn ich ihn
anklicke erscheint jedoch die Fehlermeldung :

9b6df3d2a0fff5d02e0bcc7fc958da59

gefolgt von :

bde93547ea6842b98630fbdd2bca50eb

Die Makro-Sicherheit habe ich daraufhin mal zurückgesetzt,
hat aber nichts verändert.

7a0233860ff5a8f23a25d509c465d6b3

Was mache ich verkehrt ?

DANKE für jeden Tipp / jede Alternative !

LG,
Johanna

Content-Key: 289674

Url: https://administrator.de/contentid/289674

Ausgedruckt am: 19.03.2024 um 07:03 Uhr

Mitglied: runasservice
Lösung runasservice 30.11.2015 aktualisiert um 18:16:16 Uhr
Goto Top
Hallo,

DANKE für jeden Tipp / jede Alternative !

Warum schreibst Du nicht direkt an René Holtz, denn der gute Mann hat das kostenlose Tool entwickelt?


MfG Andreas
Mitglied: 114757
Lösung 114757 30.11.2015 aktualisiert um 18:16:21 Uhr
Goto Top
Moin,
so ein Makro kann man sich leicht selbst schreiben und einem Button zuordnen ohne das man ein Plugin installieren muss, da die WIA-COM Bibliothek ja ausführlich dokumentiert ist:
Sub Scan()
    Set wiaDM = CreateObject("WIA.DeviceManager")  
    Set fs = CreateObject("Scripting.FileSystemObject")  
    Set objWIA = CreateObject("WIA.CommonDialog")  
    Set imageObj = CreateObject("WIA.ImageFile")  
    If wiaDM.DeviceInfos.Count > 0 Then
        Set imageObj = objWIA.ShowAcquireImage(UnspecifiedDeviceType, ColorIntent, MinimizeSize, , True)
        If Not imageObj Is Nothing Then
            imagePath = Environ("TEMP") & "\scan.jpg"  
            If Not fs.FileExists(imagePath) Then
                imageObj.SaveFile imagePath
            Else
                Kill imagePath
                imageObj.SaveFile imagePath
            End If
            ActiveWindow.View.Slide.Shapes.AddPicture imagePath, msoFalse, msoTrue, 0, 0
        End If
    Else
        MsgBox "Es ist kein Bildverarbeitungsgerät angeschlossen", vbExclamation  
    End If
End Sub
Gruß jodel32
Mitglied: johanna-p
johanna-p 30.11.2015 um 18:15:59 Uhr
Goto Top
@andreas : Das mach' ich !

@114757 : Das probier' ich aus !

DANKE Euch für die schnellen Antworten !

LG,
Johanna