Größe v. Bildern in Textrahmen m. VB-Code ändern

Computer: Software & Programmierung Office Software
1

Hi Leutz,

ich sitze hier verzweifelt vor folgendem Problem.
Eine Software die zum Erstellen von Immobilien Exposés benutzt wird,
liefert die Daten von sich in eine Wordvorlage. Dabei werden dann neben den Daten eines Objektes (Größe, Preis etc…) auch Bilder importiert. Diese liegen in einem riesen Hochqualitätsformat vor (2590 mal nochirgendwas Pixel).

Das Problem was sich nun ergabe (BEI JEDER QUELLAUFLÖSUNGSGRÖSSE DER BILDER (2590 x X Pixel)) war die, dass die im Word eingebetteten Bilder nur sehr sehr verschwommen bzw. weichgezeichnet eingefügt wurden. Die Bilder sind im Worddokument verständlicherweise kleiner als im Original. Im Word ca. 380 Pixel groß.

Ich habe dann herausgefunden, dass man die eingebetteten Bilder lediglich mit der Maus manuell auf die maximale Größe ziehen muß und dann wieder auf die Wordgröße (ca. 380 Pixel) verkleinern muß. Dann wird es super scharf.

Ich vermute mal, dass das Problem mit dem „verschwommenen Bildern“ daher kommt, dass Word sich logischerweise die Arbeit erspart eine 10 MB Grafik einzubetten. Es wird wahrscheinlich so einen Art Schnappschuß einbinden der recht verpixelt ist. Da er dies mit weichzeichnen umgehen will, wird das Bild dann unscharf.

Meine Idee war nun, dass man mit einem VB-Script diese lästige Mausaktion (größer ziehen und verkleinern) erspart. Das Script sollte somit alle Felder vergrößern und sofort wieder verkleinern um die „schärfe“ zu erreichen.

Ich habe nun etwas im VB-Modul gespielt - leider ohne erfolg.

Kann mir jemand helfen, wie ich so ein Script schreiben muß?

Tausend Dank!

Flo

2

Hi Flo,

dein Problem dürfte sich ohne großartige visual-basic kenntnisse durch aufzeichenen eines makros lösen lassen.

gruss
nils

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Hi nils,

danke für die Antwort. Leider klappte das mit dem Makro nicht,
ich habe beim Makroaufzeichnen leider keine Möglichkeit die Mausaktionen aufzueichnen. Ein Versuch das ganze über Tastaturbefehle zu regeln klappt nicht, da die Grafik in einem Textrahmen liegt. Das Menü Grafik formatieren, das ich bräuchte erscheint nicht, da keine Grafik ausgewählt ist.

Hast Du (jemand anderes) noch einen Idee?

Danke!

Flo

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Die Antwort von Nils war schon richtig.
Die aufgezeichnete Prozedur kann dann
einfach mit der Hand ausgemistet und
auf die eigenen Bedürfnisse angepasst
werden. So ist es z.B. auch möglich,
alle Bilder des Dokuments innerhalb
einer For-Schleife zu durchlaufen und
zu modifizieren.

Aus Zeitgründen kann ich Dir leider kein
Beispiel geben, und die Sache mit dieser
Schleife ist ein bissl tricky. Aber Du kannst
Dich ja mal unter den folgende Stichworten
in der Hilfe umgucken:

Document.Shapes
Document.InlineShapes

Der Unterschied ist, dass „Shapes“ die Grafiken mit
weißen Ziehpunkten meint (frei verschiebbar) und
„InlineShapes“ die mit den schwarzen (als Element
im Textfluss). Oderumgekehrt? Musst Du ausprobieren.

Achso, wenn Du mit dem Aufzeichnen schon rumprobiert
Hast, wie Du sagst, wirst Du das schon gefunden haben.
Dein Fehler wird übrigens folgender gewesen sein: Du
musst die Grafik mit der Maus auswählen, bevor Du mit
der Makro-Aufzeichnung beginnst. Oder Du benutzt die
„Select“-Methode, wenn Du die Nummer der Shape kennst
(ActiveDocument.InlineShapes(1).Select z.B.).

Kristian

PS: Wer mir ein Word-File mit einer 2560x1920-Pixel-Grafik
gibt oder gar noch per Mail zu senden versucht, wird von mir
erstmal ordentlich rund gemacht! So ein Dokument dürfte
wirklich um die 10MB gross sein, obwohl das Bild selbst,
sofern es als JPEG vorliegt, nicht viel größer als 2MB ist,
oft sogar kleiner.

Es wäre also sehr ratsam, die Grafiken extern zu verkleinern,
wenn es irgendwie geht. Aber das wird wohl schwierig sein,
wenn es nicht vor der Eingabe in dieses komische Tool da
passiert, aus dem die Vorlage generiert wird, oder?
Als sinnvoll hat sich ergeben, eine Grafik, die mit Word aus-
gedruckt werden soll, in 150 bis maximal 200% der Größe
einzubinden, die nachher zu sehen ist (so dass man also in
Word bei der Größe zwichen 75 und 50% einstellen muss).

Hi nils,

danke für die Antwort. Leider klappte das mit dem Makro nicht,
ich habe beim Makroaufzeichnen leider keine Möglichkeit die
Mausaktionen aufzueichnen. Ein Versuch das ganze über
Tastaturbefehle zu regeln klappt nicht, da die Grafik in einem
Textrahmen liegt. Das Menü Grafik formatieren, das ich
bräuchte erscheint nicht, da keine Grafik ausgewählt ist.

Hast Du (jemand anderes) noch einen Idee?

Danke!

Flo

Hi Flo,

dein Problem dürfte sich ohne großartige visual-basic
kenntnisse durch aufzeichenen eines makros lösen lassen.

gruss
nils