Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Bild per Makro in Word 2000 einfügen

Frage Microsoft Microsoft Office

Mitglied: imebro

imebro (Level 2) - Jetzt verbinden

25.11.2014, aktualisiert 12:35 Uhr, 1252 Aufrufe, 4 Kommentare, 1 Danke

Hallo,

ich möchte gerne ein Bild (jpg) mit einer Unterschrift per Makro in ein Word-Dokument einfügen.
Grundsätzlich funktioniert das gut...
Ich stehe mit dem Cursor an der Stelle, wo die Unterschrift stehen soll und klicke auf das Makro, welches ich in der Symbolleiste hinterlegt habe.

Dadurch wird die Unterschrift (also das JPG-Bild) auch eingefügt.
Allerdings wird die Unterschrift dann nicht korrekt angezeigt, da sie nicht mit "vor den Text" formatiert ist.

Das gleiche habe ich dann über ein weiteres Word-Dokument versucht, in die ich lediglich die Unterschrift eingefügt habe.
Diese Unterschrift habe ich dann schon mit Layout "vor dem Text" formatiert.
Wenn ich dann mit dem Makro diese Datei öffnen und die Unterschrift in das andere Word-Dokument einfügen lasse, wird die Unterschrift immer ganz oben im Dokument eingefügt und nicht dort, wo ich mit dem Cursor stehe.

Nun meine Fragen dazu:

1) Wie kann ich ein JPG automatisch so in ein Word-Dokument an einer bestimmten Stelle einfügen, dass es VOR DEM TEXT steht?

....1a) Gibt es ggf. eine Möglichkeit, das JPG selbst so zu speichern, dass es immer VOR DEM TEXT eingefügt wird?

2) Wie kann ich die in einem Word-Dokument eingefügte und richtig formatierte Unterschrift an meiner Cursor-Position einfügen lassen?

Danke und Gruss,
imebro
Mitglied: colinardo
LÖSUNG 25.11.2014, aktualisiert um 12:35 Uhr
Hallo imebro,
habe jetzt kein altes Word 2000 da um es zu testen ob die verwendeten Funktionen und Eigenschaften dort schon verfügbar sind, aber probier's mal hiermit:
01.
Sub InsertPicture() 
02.
    Dim img As InlineShape, shp As Shape 
03.
    Set img = Selection.InlineShapes.AddPicture("E:\Bilder\Unterschrift.png") 
04.
    Set shp = img.ConvertToShape 
05.
    shp.WrapFormat.Type = wdWrapNone 
06.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: imebro
25.11.2014 um 12:37 Uhr
Hallo Uwe,

WOW... danke für die schnelle Hilfe.
Hat wunderbar funktioniert.
Zwar ist die Unterschrift noch etwas zu groß für den Zwischenraum für die Unterschrift, aber das kann ich ja einfach dadurch ändern, dass ich die Unterschrift im JPG einfach verkleinere.

Von daher - klappt prima!!

Danke und schöne Grüße,
imebro
Bitte warten ..
Mitglied: colinardo
25.11.2014 um 13:00 Uhr
Zitat von imebro:
Zwar ist die Unterschrift noch etwas zu groß für den Zwischenraum für die Unterschrift,
das kannst du wenn du willst auch im Code mit
01.
shp.Width = 200 
02.
shp.Height = 150
anpassen.

Grüße Uwe
Bitte warten ..
Mitglied: imebro
25.11.2014 um 13:35 Uhr
...oh, danke,
das ist natürlich noch einfacher

Schöne Grüße,
imebro
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Wie kann man die Standard-Schriftart bei einfügen von Text in Word 2013 festlegen? (3)

Frage von Rene1976 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Pdf Datei als Icon Symbol in Word einfügen per Drag and drop? (4)

Frage von Geforce zum Thema Microsoft Office ...

Grafikkarten & Monitore
Neue Graifkkarte - kein Bild (10)

Frage von bestelitt zum Thema Grafikkarten & Monitore ...

Heiß diskutierte Inhalte
Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (14)

Frage von DerFurrer zum Thema Windows Installation ...

Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Netzwerkgrundlagen
gelöst Cisco SG500 Series LAG hat sich von selbst umgestellt (10)

Frage von Ex0r2k16 zum Thema Netzwerkgrundlagen ...

Multimedia & Zubehör
gelöst Iphone 6 prob (9)

Frage von jensgebken zum Thema Multimedia & Zubehör ...