Bildgröße und Position per Marko verändern

09/06/2009 - 09:35 von T. Kuechler | Report spam
Hallo.

Ich möchte per Makro in der Kopfzeile eine Grafik auswàhlen und diese dann
gegen eine andere Grafik austauschen.

Mit
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.SelectAll
Selection.InlineShapes.AddPicture
schaffe ich es zumindest die alte Grafik gegen eine neue auszutauschen.

Die Probeleme sind, dass die neue Grafik viel größer ist und sie immer
linksbündig eingefügt wird.
Ich habe bisher noch nicht herausgefunden, wie ich die Höhe und Breit der
Grafik veràndern oder wie ich die Grafik an eine bestimmte Stelle setzten
kann. Der Makrorekorder zeichnet entweder nichts auf oder die Funktionen kann
ich wàhrende der Aufnahme nicht auswàhlen.

Ich benutze Word 2007.

Kann mir da jemand helfen.
Danke.

Mit freundlichen Grüßen
T. Kuechler
 

Lesen sie die antworten

#1 Udo Riesmeier
09/06/2009 - 13:05 | Warnen spam
Hi,

die AddPicture Funktion gibt dir ja ein Objekt zurück.

Beispiel:
Set objInlineShapes =
LocalObject.Selection.InlineShapes.AddPicture(DateiName, False, True)

Nun kann man Hoehe und breite zuweisen, hier wird die hoehe/Breite in
Centimeter angegeben:
If Hoehe <> 0 Then
objInlineShapes.Height = LocalObject.CentimetersToPoints(Hoehe)
End If
If Breite <> 0 Then
objInlineShapes.Width = LocalObject.CentimetersToPoints(Breite)
End If


Gruß

Udo



"T. Kuechler" schrieb im Newsbeitrag
news:
Hallo.

Ich möchte per Makro in der Kopfzeile eine Grafik auswàhlen und diese dann
gegen eine andere Grafik austauschen.

Mit
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.SelectAll
Selection.InlineShapes.AddPicture
schaffe ich es zumindest die alte Grafik gegen eine neue auszutauschen.

Die Probeleme sind, dass die neue Grafik viel größer ist und sie immer
linksbündig eingefügt wird.
Ich habe bisher noch nicht herausgefunden, wie ich die Höhe und Breit der
Grafik veràndern oder wie ich die Grafik an eine bestimmte Stelle setzten
kann. Der Makrorekorder zeichnet entweder nichts auf oder die Funktionen
kann
ich wàhrende der Aufnahme nicht auswàhlen.

Ich benutze Word 2007.

Kann mir da jemand helfen.
Danke.

Mit freundlichen Grüßen
T. Kuechler

Ähnliche fragen