Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Grafik an Cursorposition einfügen
zurück: Textfelder aus externem Programm verändern weiter: Textfelder benennen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Larissa
Gast


Verfasst am:
10. Okt 2007, 12:39
Rufname:

Grafik an Cursorposition einfügen - Grafik an Cursorposition einfügen

Nach oben
       Version: Office 2003

Hallo,
Was muss ich tun, damit diese Grafik nicht oben links, sondern an der Cursorposition eingefügt wird:

Sub u_bv()

Dim a As Shape
Set a = ActiveDocument.Shapes.AddPicture("Y:\Transport\Allgemeines\Unterschriften\U_schriften_BV.png", _
False, True, , , , , ActiveDocument.Range)
a.Left = 0: a.Top = 0
a.WrapFormat.Type = wdWrapNone
a.WrapFormat.Side = wdWrapBoth
a.LockAspectRatio = msoTrue
Set a = Nothing

End Sub

Vielen Dank für Eure Hilfe,
Larissa
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
10. Okt 2007, 13:41
Rufname:
Wohnort: Leipzig

AW: Grafik an Cursorposition einfügen - AW: Grafik an Cursorposition einfügen

Nach oben
       Version: Office 2003

Hallo Larissa,

Du musst das Argument Anchor angeben, und zwar auf die Selection (Einfügemarke = "Cursor") bezogen:
Code:
Set a = ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
        "C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eigene Bilder\Beispiel.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True)

Sieh auch mal in der VBA-Hilfe unter AddPicture nach. Da werden die Argumente erläutert.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
10. Okt 2007, 14:09
Rufname:


AW: Grafik an Cursorposition einfügen - AW: Grafik an Cursorposition einfügen

Nach oben
       Version: Office 2003

Hallo Lisa,
danke für die schnelle Hilfe, das hat super geklappt.
Lieben Gruß,
Larissa
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Schriftart unterschiedl. nach Einfügen der Seriendruckfelder 3 BenC 1837 28. Jul 2011, 01:21
charlybrown Schriftart unterschiedl. nach Einfügen der Seriendruckfelder
Keine neuen Beiträge Word Serienbriefe: Datum einfügen mit englischem Format 2 Gast_2011 2685 04. Jan 2011, 01:12
Gast_2011 Datum einfügen mit englischem Format
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief über Bedingungsfeld Tabellenzeile einfügen 6 Scheff 4493 08. Nov 2010, 13:33
Scheff Word Serienbrief über Bedingungsfeld Tabellenzeile einfügen
Keine neuen Beiträge Word Serienbriefe: Feld mit Datum +2 Tage einfügen 2 Sinured 3185 29. Jan 2010, 11:26
Gast Feld mit Datum +2 Tage einfügen
Keine neuen Beiträge Word Serienbriefe: Adressen aus Office tabellen dokument in dokument einfügen 1 Anna-L. 1218 15. Nov 2009, 21:42
charlybrown Adressen aus Office tabellen dokument in dokument einfügen
Keine neuen Beiträge Word Serienbriefe: Einfügen versch. Adressen aus einer Datenqu. in ein Dokument 9 Gast 921 04. Nov 2009, 15:02
charlybrown Einfügen versch. Adressen aus einer Datenqu. in ein Dokument
Keine neuen Beiträge Word Serienbriefe: In Word fertige Textbausteine von extern einfügen 8 Windmechaniker 4263 01. Nov 2009, 01:33
charlybrown In Word fertige Textbausteine von extern einfügen
Keine neuen Beiträge Word Serienbriefe: Bilder in Serienbrief einfügen 4 Konte 10453 05. Aug 2009, 15:28
charlybrown Bilder in Serienbrief einfügen
Keine neuen Beiträge Word Serienbriefe: Textmarken per Includetext einfügen in Abhängigkeit von ASK 0 Robotixx 1805 13. Jul 2009, 19:45
Robotixx Textmarken per Includetext einfügen in Abhängigkeit von ASK
Keine neuen Beiträge Word Serienbriefe: Dateien variable einfügen / INCLUDETEXT 7 Floyd 8031 26. Mai 2009, 10:34
worf Dateien variable einfügen / INCLUDETEXT
Keine neuen Beiträge Word Serienbriefe: Bilder in Worddokumente automatisch einfügen 0 iam_RaGe 2851 24. März 2009, 14:07
iam_RaGe Bilder in Worddokumente automatisch einfügen
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 911 27. Aug 2008, 11:47
ArianeH Anrede einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum