Auswahlliste für eingescannte Unterschriften

Wenn man direkt aus Word ein Dokument faxen will, muß normalerweise eine gescannte Unterschrift in das Dokument eingebunden werden. Arbeiten mehrere Personen an einem Rechner oder möchte man verschiedene Unterschriften abhängig vom Empfänger verwenden zum Beispiel nur den Vornamen für den Bekanntenkreis und den vollständigen Namen für Geschäftskorrespondenz, ist eine Auswahlbox mit einer Abfrage, welche Unterschrift eingebunden werden soll, sehr praktisch.

Dies erreichen Sie mit dem unten aufgeführten Makro. Es startet eine Dialogbox, die alle zur Verfügung stehenden Unterschriften anbietet. Nach der Auswahl der gewünschten Unterschrift wird die Grafikdatei in das Dokument eingebunden. Im Makro wird davon ausgegangen, daß sich die Grafikdateien mit den gescannten Unterschriften im Verzeichnis C:\ befinden. Passen Sie den Pfad gegebenenfalls an die Verzeichnisstruktur Ihres Rechners an.
Anke und Michael Borgmann

Makro zur Auswahl der Unterschrift

Sub MAIN

Begin Dialog BenutzerDialog 300, 150, “Unterschrift einfügen”
OKButton 10, 120, 120, 20
CancelButton 150, 120, 120, 21
GroupBox 5, 5, 260, 100, “Welche Unterschrift?”
OptionGroup .Optionen
OptionButton 10, 18, 170, 16, “Anke Borgmann”
OptionButton 10, 36, 170, 16, “Michael Borgmann”
OptionButton 10, 54, 170, 16, “Anke”
OptionButton 10, 72, 170, 16, “Michael”
End Dialog
Dim Dlg As BenutzerDialog
Select Case Dialog(Dlg)
Case - 1
If Dlg.Optionen = o Then
EinfügenGrafik .Name = “ C:\Gesname1.tif “, .DateiVerknüpfen = “0”
EndIf
If Dlg.Optionen = 1 Then
EinfügenGrafik .Name = “C:\Gesname2.tif”, .DateiVerknüpfen = “0”
EndIf
If Dlg.Optionen = 2 Then
EinfügenGrafik .Name = “c:\Vorname1”, .DateiVerknüpfen = “0”
EndIf
If Dlg.Optionen = 3 Then
EinfügenGrafik .Name = “c:\Vorname2”, .DateiVerknüpfen = “0”
EndIf
Case Else
MsgBox “Keine Unterschrift eingefügt!”
End Select
End Sub