Word Makro Bild einfügen Größe und Ablageort festl

Computer: Software & Programmierung Visual Basic
#1

In Word füge ich ein Bild als Makro mit folgendem Code ein. (Funktioniert auch)
Nun möchte ich aber noch Größe des Bildes angeben und das Bild soll am Ende des Textes (bzw. Textmarke) angehängt werden.

Dim inlineBILD As InlineShape, Form As Shape
Set inlineBILD = Selection.InlineShapes.AddPicture(FileName:=„LWBuchstabe:\PFAD\Bild.xxx“, LinkToFile:=False, SaveWithDocument:=True)
inlineBILD.AlternativeText = „hinterText“
inlineBILD.ConvertToShape
For Each Form In ActiveDocument.Shapes
If Form.AlternativeText = „hinterText“ Then
Form.ZOrder 5
End If
Next .

#2

Hallo echojuergen
leider kann ich Dir nicht weiter helfen, weil ich nicht so in die Tiefen von Programmen einwirke wie Du es wohl tust .
Ich bin lediglich Benutzer von dem Schreibprogramm Word,
wenn ich mit Bildern arbeiten möchte - dann benutze ich entweder Powepoint oder Illustrator - aber wie gesagt ich benutze diese Programme zwar - schreibe aber nicht solche Befehle wie du es wohl tust - also - ist es wohl besser - Du gehst in eine andere Plattform - wo Du auch davon ausgehen kannst - dass dort die richtigen Nutzer - die dir auch weiterhelfen könnten - zu finden sind.
mit freundlichen Gruß
Werk 02

#3

Hallo,

tut mir wirklich sehr leid, aber ich kann die bei Deinem Problem leider nicht weiterhelfen.

LG Peter

#4

Hallo,

sorry, da kann ich Dir leider nicht weiterhelfen.
piehe

#5

Hallo Jürgen,

probiers so (das Bild wird an einer offenen Textmarke namens „ziel“ eingefügt, und 6 cm breit und 5 cm hoch gemacht):

Sub Makro1()
Dim inlineBILD As InlineShape, Form As Shape

With ActiveDocument
Set inlineBILD = .InlineShapes.AddPicture(FileName:=„c:\temp\bilder\1.jpg“, _
LinkToFile:=False, SaveWithDocument:=True, Range:=.Bookmarks(„ziel“).Range)
inlineBILD.AlternativeText = „hinterText“
inlineBILD.Width = CentimetersToPoints(6)
inlineBILD.Height = CentimetersToPoints(5)
inlineBILD.ConvertToShape
For Each Form In ActiveDocument.Shapes
If Form.AlternativeText = „hinterText“ Then
Form.ZOrder 5
End If
Next
End With
End Sub

#6

Hallo echojuergen,

da kann ich leider auch nicht weiterhelfen.

MfG
Robert

#7

Kann dir da leider nicht weiterhelfen.
Gruß

#8

Tut mir leid, dabei kann ich Dir leider nicht weiterhelfen. Kenne mich mit Word-Makros nicht aus.
Gruß und viel Erfolg!

#9

oh ha
weiß nicht

#10

Hallo,
da kann ich leider nicht weiterhelfen, sorry. :frowning:

Gruß, oelchi

#11

no idea. gab es keine experten die sich mit makro auskennen? ich jedenfalls leider nciht. sorry.

In Word füge ich ein Bild als Makro mit folgendem Code ein.
(Funktioniert auch)
Nun möchte ich aber noch Größe des Bildes angeben und das Bild
soll am Ende des Textes (bzw. Textmarke) angehängt werden.

Dim inlineBILD As InlineShape, Form As Shape
Set inlineBILD =
Selection.InlineShapes.AddPicture(FileName:=„LWBuchstabe:\PFAD\
Bild.xxx“, LinkToFile:=False, SaveWithDocument:=True)
inlineBILD.AlternativeText = „hinterText“
inlineBILD.ConvertToShape
For Each Form In ActiveDocument.Shapes
If Form.AlternativeText = „hinterText“ Then
Form.ZOrder 5
End If
Next .

#12

Es tut mir leid, aber da kann ich leider nicht helfen.

#13

Sorry, dass ich mich erst jetzt melde, aber ich war im Urlaub.

Leider kann ich Dir nicht helfen, habe leider keinen Peil für Dein Problem, tut mir leid.

Gruß
Susi