Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[W2007] Abstand zwischen Bildern
1,223 views
Skip to first unread message
Heiko Rompel
Feb 24, 2014, 5:00:11 AM2/24/14
to
Hallo,
so langsam drehe ich hier durch.
Ich möchte viele Bilder in Word2007-Dokumente einfügen.
Also wähle ich "Einfügen / Grafik" und wähle alle Bilder aus die ich
einfügen möchte.
Das Dokument ist zweispaltig. Die Bilder werde auch eingefügt, aber die
Bilder in einer Spalte sind Bild an Bild ohne 0,5cm vertikalen Abstand
zu einander.
Gibt es vielleicht ein Makro das bei oder nach dem Einfügen einen
Abstand von 0,5cm einfügt?
Gruß Heiko
so langsam drehe ich hier durch.
Ich möchte viele Bilder in Word2007-Dokumente einfügen.
Also wähle ich "Einfügen / Grafik" und wähle alle Bilder aus die ich
einfügen möchte.
Das Dokument ist zweispaltig. Die Bilder werde auch eingefügt, aber die
Bilder in einer Spalte sind Bild an Bild ohne 0,5cm vertikalen Abstand
zu einander.
Gibt es vielleicht ein Makro das bei oder nach dem Einfügen einen
Abstand von 0,5cm einfügt?
Gruß Heiko
Heiko Rompel
Feb 24, 2014, 5:13:08 AM2/24/14
to
Ein
Sub BildPositionen()
' Bildabstand auf 0,5cm setzen
ActiveSheet.Pictures(1).Top = Application.CentimetersToPoints(0.5)
End Sub
bringt nur einen Laufzeitfehler "Objekt fehlt"
Gruß Heiko
Sub BildPositionen()
' Bildabstand auf 0,5cm setzen
ActiveSheet.Pictures(1).Top = Application.CentimetersToPoints(0.5)
End Sub
bringt nur einen Laufzeitfehler "Objekt fehlt"
Gruß Heiko
Lisa Wilke-Thissen
Feb 24, 2014, 1:22:54 PM2/24/14
to
Hallo Heiko,
> Ich möchte viele Bilder in Word2007-Dokumente
> einfügen. Also wähle ich "Einfügen / Grafik" und wähle alle Bilder aus die
> ich einfügen möchte.
mit welchem Textumbruch werden die Bilder eingefügt - "Mit Text in Zeile"
oder auf Grafikebene?
> Das Dokument ist zweispaltig.
Nicht Tabellenspalten, sondern Zeitungsspalten?
> Die Bilder werden auch eingefügt, aber die Bilder in einer Spalte sind
eigenen Absatz, dann kannst du das per Absatzvor- oder Absatznachabstand
lösen.
Falls sie sich nicht in einem separaten Absatz befinden, vielleicht nicht
einmal durch ein Leerzeichen getrennt sind, sondern einfach nur wegen der
schmalen Spaltenbreite untereinander landen, kannst du die Abstände per
Zeilenabstand regeln.
Ansonsten schildere doch bitte etwas konkreter, was du da machst.
--
Viele Grüße
Lisa
> Ich möchte viele Bilder in Word2007-Dokumente
> einfügen. Also wähle ich "Einfügen / Grafik" und wähle alle Bilder aus die
> ich einfügen möchte.
oder auf Grafikebene?
> Das Dokument ist zweispaltig.
Nicht Tabellenspalten, sondern Zeitungsspalten?
> Die Bilder werden auch eingefügt, aber die Bilder in einer Spalte sind
> Bild an Bild ohne 0,5cm vertikalen Abstand zu einander.
Falls sich die Bilder "Mit Text in Zeile" befinden, noch dazu in einem
eigenen Absatz, dann kannst du das per Absatzvor- oder Absatznachabstand
lösen.
Falls sie sich nicht in einem separaten Absatz befinden, vielleicht nicht
einmal durch ein Leerzeichen getrennt sind, sondern einfach nur wegen der
schmalen Spaltenbreite untereinander landen, kannst du die Abstände per
Zeilenabstand regeln.
Ansonsten schildere doch bitte etwas konkreter, was du da machst.
--
Viele Grüße
Lisa
Lisa Wilke-Thissen
Feb 24, 2014, 1:32:38 PM2/24/14
to
Hallo Heiko,
> Sub BildPositionen()
> ' Bildabstand auf 0,5cm setzen
> ActiveSheet.Pictures(1).Top = Application.CentimetersToPoints(0.5)
> End Sub
ActiveSheet hört sich irgendwie nach Excel an. Und Bilder sind doch Shapes,
nicht Pictures"?
--
Viele Grüße
Lisa
> Sub BildPositionen()
> ' Bildabstand auf 0,5cm setzen
> ActiveSheet.Pictures(1).Top = Application.CentimetersToPoints(0.5)
> End Sub
nicht Pictures"?
--
Viele Grüße
Lisa
Heiko Rompel
Feb 24, 2014, 2:12:29 PM2/24/14
to
Hallo,Lisa Wilke-Thissen schrieb:
> Ansonsten schildere doch bitte etwas konkreter, was du da machst.
>
Also, ich habe ein Dokument DIN A4 mit zwei "Zeitungs-"Spalten.
Ich wähle "Einfügen / Grafik" und wähle alle Bilder aus die ich einfügen
möchte.
dann rufe ich ein Script auf, das die Breite aller Bilder auf 12cm ändert.
Soweit funktioniert auch alles.
Nach dem die Bilder verkleiner wurden, habe ich je Spalte zwei Bilder
untereinander.
Nur das die Bilder direkt aneinander liegen und ich lieber ein paar
Millimeter zwischen den Bildern hätte.
Das bedeutet ich ändere bewusst nichts an den Absätzen oder so.
Laut den Word-Einstellungen werden die Bilder als "Mit Text in Zeile"
eingefügt.
Jetzt brauche ich nur noch eine Lösung für den Abstand.
Gruß Heiko
> Ansonsten schildere doch bitte etwas konkreter, was du da machst.
>
Ich wähle "Einfügen / Grafik" und wähle alle Bilder aus die ich einfügen
möchte.
dann rufe ich ein Script auf, das die Breite aller Bilder auf 12cm ändert.
Soweit funktioniert auch alles.
Nach dem die Bilder verkleiner wurden, habe ich je Spalte zwei Bilder
untereinander.
Nur das die Bilder direkt aneinander liegen und ich lieber ein paar
Millimeter zwischen den Bildern hätte.
Das bedeutet ich ändere bewusst nichts an den Absätzen oder so.
Laut den Word-Einstellungen werden die Bilder als "Mit Text in Zeile"
eingefügt.
Jetzt brauche ich nur noch eine Lösung für den Abstand.
Gruß Heiko
Wolfram Jahn
Feb 24, 2014, 3:48:39 PM2/24/14
to
Am 24.02.14 20:12, schrieb Heiko Rompel:
> Jetzt brauche ich nur noch eine Lösung für den Abstand.
Lisa hatte Dir den Zeilenabstand vorgeschlagen; geht der nicht?
Wolfram
> Jetzt brauche ich nur noch eine Lösung für den Abstand.
Wolfram
Heiko Rompel
Feb 24, 2014, 5:01:32 PM2/24/14
to
Hallo,Wolfram Jahn schrieb:
Gruß Heiko
> Am 24.02.14 20:12, schrieb Heiko Rompel:
>
>> Jetzt brauche ich nur noch eine Lösung für den Abstand.
>
> Lisa hatte Dir den Zeilenabstand vorgeschlagen; geht der nicht?
>
Kann ich erst Morgen auf der Arbeit testen.
>
>> Jetzt brauche ich nur noch eine Lösung für den Abstand.
>
> Lisa hatte Dir den Zeilenabstand vorgeschlagen; geht der nicht?
>
Gruß Heiko
Heiko Rompel
Feb 25, 2014, 2:16:10 AM2/25/14
to
"Abstand / Nach " auf 18pt gesetzt ohne Änderung.
Dann habe ich auch den "Zeilenabstand" auf "Mindestens" 18pt gesetzt -
auch ohne Erfolg.
Noch irgendwelche Ideen?
Die Bildgröße ändere ich hiermit:
===================
Sub AlleBildgroessenAnpassen()
Dim objPic As Object
For Each objPic In ActiveDocument.InlineShapes
With objPic
'Seitenverhältnisse beibehalten
.LockAspectRatio = msoTrue
.Width = Application.CentimetersToPoints(12)
'.Height = Application.CentimetersToPoints(16.66)
End With
Next
End Sub
===================
Gruß HEiko
Lisa Wilke-Thissen
Feb 25, 2014, 7:17:22 AM2/25/14
to
Hallo Heiko,
> Habe ein STRG+A gemacht und dann im Kontextmenü
> "Absatz .." und dort "Abstand / Nach " auf 18pt gesetzt ohne Änderung.
wenn ich recht verstanden habe, befinden sich deine Grafiken ja auch nicht
innerhalb eines separaten Absatzes. Also wirken Vor- oder Nachabstand nicht.
> Dann habe ich auch den "Zeilenabstand" auf "Mindestens"
> 18pt gesetzt - auch ohne Erfolg.
Bei "Mindestens" wird die Zeile dann genau so hoch, wie für den Inhalt
benötigt. Nicht mehr und nicht weniger. Du aber willst mehr. Also nimm die
genaue Höhe der Bilder plus 0,5 cm. Falls die Bilder keine gleich große Höhe
haben, nimm z. B. 1,2-fachen Zeilenabstand.
--
Viele Grüße
Lisa
> Habe ein STRG+A gemacht und dann im Kontextmenü
> "Absatz .." und dort "Abstand / Nach " auf 18pt gesetzt ohne Änderung.
innerhalb eines separaten Absatzes. Also wirken Vor- oder Nachabstand nicht.
> Dann habe ich auch den "Zeilenabstand" auf "Mindestens"
> 18pt gesetzt - auch ohne Erfolg.
benötigt. Nicht mehr und nicht weniger. Du aber willst mehr. Also nimm die
genaue Höhe der Bilder plus 0,5 cm. Falls die Bilder keine gleich große Höhe
haben, nimm z. B. 1,2-fachen Zeilenabstand.
--
Viele Grüße
Lisa
Lisa Wilke-Thissen
Feb 25, 2014, 3:55:42 PM2/25/14
to
Hallo Heiko,
> Habe ein STRG+A gemacht und dann im Kontextmenü
> "Absatz .." und dort "Abstand / Nach " auf 18pt gesetzt ohne Änderung.
deine Bilder hast du "Mit Text in Zeile" nahtlos - ohne manuellen
Zeilenwechsel, ohne Leerzeichen, ohne Absatzschaltung dazwischen -
nacheinander ins Dokument eingefügt. Damit verhalten sie sich quasi wie
einzelne Buchstaben oder Wörter im Fließtext.
Der Zeilenumbruch nach einem Bild erfolgt einzig und allein dadurch, dass
die Breite eines Bildes offenbar der Breite der Spalte entspricht. Ein
zweites Bild findet also keinen Platz mehr in derselben Zeile und rutscht in
die nächste Zeile. Daher kannst du den vertikalen Abstand zwischen den
Bildern nur durch die Zeilenhöhe regulieren. Wähle unter Zeilenabstand
"Mehrfach" und dann z. B. "1,2". Falls deine Bilder alle die gleiche Höhe
aufweisen, beispielsweise 4 cm, kannst du als Zeilenabstand auch "Genau" und
dann "4,5 cm" wählen.
> Die Bildgröße ändere ich hiermit: [VBA-Code]
Da die Bilder "Mit Text in Zeile" positioniert sind, kannst du mit deinem
Code zwar die Größe bestimmen (ähnlich wie einen Schriftgrad), aber eben
nicht den vertikalen Abstand. Dafür sind dann Absatzformate zuständig, im
vorliegenden Fall der Zeilenabstand.
Selbst wenn Bilder beispielsweise mit Zeilenumbruch "Oben und unten"
formatiert sind, dürfte es schwierig sein, einen vertikalen Abstand
*zwischen* den Grafiken zu definieren. Einfacher wäre es dann, einen
vertikalen Abstand in Abhängigkeit zu dem Absatz zu definieren, in welchem
sie verankert sind. Oder in Abhängigkeit zum Seitenrand.
Aber "Mit Text in Zeile" ist grundsätzlich die bessere Alternative. Und
damit bleibt's beim Zeilenabstand.
--
Viele Grüße
Lisa
> Habe ein STRG+A gemacht und dann im Kontextmenü
> "Absatz .." und dort "Abstand / Nach " auf 18pt gesetzt ohne Änderung.
Zeilenwechsel, ohne Leerzeichen, ohne Absatzschaltung dazwischen -
nacheinander ins Dokument eingefügt. Damit verhalten sie sich quasi wie
einzelne Buchstaben oder Wörter im Fließtext.
Der Zeilenumbruch nach einem Bild erfolgt einzig und allein dadurch, dass
die Breite eines Bildes offenbar der Breite der Spalte entspricht. Ein
zweites Bild findet also keinen Platz mehr in derselben Zeile und rutscht in
die nächste Zeile. Daher kannst du den vertikalen Abstand zwischen den
Bildern nur durch die Zeilenhöhe regulieren. Wähle unter Zeilenabstand
"Mehrfach" und dann z. B. "1,2". Falls deine Bilder alle die gleiche Höhe
aufweisen, beispielsweise 4 cm, kannst du als Zeilenabstand auch "Genau" und
dann "4,5 cm" wählen.
> Die Bildgröße ändere ich hiermit: [VBA-Code]
Da die Bilder "Mit Text in Zeile" positioniert sind, kannst du mit deinem
Code zwar die Größe bestimmen (ähnlich wie einen Schriftgrad), aber eben
nicht den vertikalen Abstand. Dafür sind dann Absatzformate zuständig, im
vorliegenden Fall der Zeilenabstand.
Selbst wenn Bilder beispielsweise mit Zeilenumbruch "Oben und unten"
formatiert sind, dürfte es schwierig sein, einen vertikalen Abstand
*zwischen* den Grafiken zu definieren. Einfacher wäre es dann, einen
vertikalen Abstand in Abhängigkeit zu dem Absatz zu definieren, in welchem
sie verankert sind. Oder in Abhängigkeit zum Seitenrand.
Aber "Mit Text in Zeile" ist grundsätzlich die bessere Alternative. Und
damit bleibt's beim Zeilenabstand.
--
Viele Grüße
Lisa
0 new messages