Hallo!
Ich habe in ein Winword Dokument eine Grafik eingebunden (Winword 97 SR-1). Anschließend habe ich die Grafik mit einem Rahmen versehen.
Nun möchte ich aber, dass zwischen Rahmen und Grafik ein Zwiwschenraum von etwa 5mm bleibt.
Geht das? Wenn ja, wie?
Herzlichen Dank
Christoph
Ich habe in ein Winword Dokument eine Grafik eingebunden
(Winword 97 SR-1). Anschließend habe ich die Grafik mit einem
Rahmen versehen.
Ich nehme an, das hast Du über die Farb- und Linieneinstellungen gemacht. Damit geht das nicht, soviel ich weiß.
Nun möchte ich aber, dass zwischen Rahmen und Grafik ein
Zwiwschenraum von etwa 5mm bleibt. Geht das? Wenn ja, wie?
Naja, entweder Du gibst dem Bild selbst einen Rahmen (also der Bilddatei). Das ist aber doof. Oder Du ziehst einen separaten Rahmen um das Bild und gruppierst beide, damit sie zusammenbleiben. Was besseres fällt mir hier nicht ein.
Das folgende Makro kannst Du dafür verwenden (oder es, wie beschrieben, mit der Hand machen).
Option Base 1
Sub RahmenUmGrafik()
'Kristian Zarse für Wer-Weiss-Was.de, 21.01.03
'Artikel: http://213.133.98.163/cgi-bin/forum/showarticle.fpl?ArtikelID=1421122
Dim a As Single 'Abstand
Dim d As Single 'Dicke
Dim f As Long 'Farbe
Dim Rahmen As Shape
Dim Bild As Shape
' Dieses Makro bildet die folgenden manuellen Schritte ab:
' Es wird ein Rahmen gezeichnet, der die Größe des Bildes
' hat plus jeweils zweimal den gewünschten Abstand des
' Rahmens vom Bild.
' Die Position des Rahmens wird festgelegt mit [linke Kante
' des Bildes] minus Rahmenabstand und [obere Kante des Bildes]
' minus Rahmenabstand.
' Schließlich werden beide Elemente ausgewählt und gruppiert.
' Voraussetzung für das Makro ist, daß das Bild markiert ist.
' Entweder die Werte fest vorgeben ...
'a = CentimetersToPoints(0.5) ' 5 mm
' ... oder sie per InputBox abfragen.
a = CSng(InputBox("Bitte den Abstand zum Bild in Millimetern eingeben:", "Rahmenabstand", "5"))
a = CentimetersToPoints(a / 10)
d = 0.75 ' Points
' Entweder eine Farbnummer auswählen ...
'f = 1 ' schwarz
' ... oder sie per RGB-Funktion festlegen.
f = RGB(255, 0, 0) ' rot
' Hier kommt eine Fehlermeldung, wenn das Bild
' (und NUR das Bild) nicht markiert ist.
Set Bild = Selection.ShapeRange(1)
Set Rahmen = ActiveDocument.Shapes.AddShape(msoShapeRectangle, \_
Bild.Left - a, \_
Bild.Top - a, \_
Bild.Width + a + a, \_
Bild.Height + a + a, \_
Bild.Anchor)
Rahmen.Fill.Visible = msoFalse
'Rahmen.Line.ForeColor = f ' Farbnummer
Rahmen.Line.ForeColor.RGB = f ' RGB-Wert
Rahmen.Line.Weight = d
ActiveDocument.Shapes.Range(Array(Bild.Name, Rahmen.Name)).Select
Selection.ShapeRange.Group.Select
Set Bild = Nothing
Set Rahmen = Nothing
End Sub 'RahmenUmGrafik
Herzlichen Dank
Christoph
Keine Ursache.
Kristian
Hallo Christoph,
wenn du die Grafik in eine Tabellenzelle steckst und die Tabelle so formatierst, dass der Abstand zum Rahmen (über Tabelleneigenschaften) 5 mm ist, müsste es funktionieren
Gruß Maren
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]