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 :

gefolgt von :

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

Was mache ich verkehrt ?

DANKE für jeden Tipp / jede Alternative !

LG,
Johanna

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 289674

Url: https://administrator.de/forum/scannen-in-powerpoint-2010-289674.html

Ausgedruckt am: 22.12.2024 um 16:12 Uhr

3 Kommentare

Neuester Kommentar

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

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