Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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

Word 2010 Makro Grafik bei Einfügemarke über den Text legen

Frage Microsoft Microsoft Office

Mitglied: Looser27

Looser27 (Level 2) - Jetzt verbinden

18.04.2013, aktualisiert 14:07 Uhr, 3605 Aufrufe, 2 Kommentare, 1 Danke

Hallo allerseits,

ich habe ein kleines Problem mit einem Makro in Word 2010.

Ich möchte eine Unterschriftendatei userabhängig in ein Dokument einfügen. Damit das Ganze dann auch noch gut aussieht, soll die Grafik transparent über den Text. Und genau hier scheitert es bei mir.

Mein Skript sieht bislang so aus:


Sub AutoNew()
'
' Unterschrift Makro
Dim uPfad As String
uPfad = "V:\Unterschriften\" & Environ("USERNAME") & ".GIF"

If Dir(uPfad) = "" Then
MsgBox uPfad, vbCritical, "Unterschriftendatei nicht gefunden"
Exit Sub
End If
If ActiveDocument.Bookmarks.Exists("Unterschrift") = True Then
ActiveDocument.Bookmarks("Unterschrift").Range.InlineShapes.AddPicture uPfad, False, True
End If

'
End Sub


Damit wird die Grafik auch eingefügt, jedoch verschiebt der mir jedesmal die Formatierung des nachfolgenden Textes. Deswegen soll die Grafik halt transparent über den Text.

Vielen Dank im Voraus für Eure Hilfe.

Gruß

Thomas
Mitglied: colinardo
22.04.2013 um 12:22 Uhr
Hallo Thomas,
um eine Grafik in der Z-Richtung zu positionieren muss das Bild erst in ein "Shape" konvertiert werden dann kann es vor oder hinter dem Text positioniert werden.
01.
ActiveDocument.Bookmarks("Unterschrift").Range.InlineShapes.AddPicture(uPfad, False, True).ConvertToShape.ZOrder msoBringInFrontOfText
Grüße Uwe
Bitte warten ..
Mitglied: Looser27
24.04.2013 um 13:31 Uhr
Hallo Uwe,

vielen Dank. Funktioniert perfekt.

Gruß Thomas
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Excel - VBA - Fusszeile Text und Grafik (1)

Frage von Juckie zum Thema VB for Applications ...

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 ...

Visual Studio
gelöst Visual Studio C-Sharp Word Add-In - Text zu Fußzeile hinzufügen (5)

Frage von mayho33 zum Thema Visual Studio ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...