Objekte automatisch beschneiden (VBA)
23.03.2007 20:36:00
Franz
Ich habe ein Dokument, das einige MathType - Formeln enthält. Leider haben diese Formeln die Eigenschaft, dass sie irgendwie zu groß sind und unschön aussehen, wenn z.B. direkt danach ein Satzzeichen kommt (zuviel Leerraum).
Dank der Forums-Hilfe hier konnte ich mir vor einiger Zeit ein Makro basteln, das die Formeln allesamt automatisch beschneidet (siehe unten).
Das hat im Grunde auch gut geklappt. Aber nun muss ich feststellen (bei einem anderen Dokument), dass die Formeln dadurch ihr Format verlieren. Die Größe unter "Skalieren" stimmt nicht mehr. Dort sind die Formeln nun plötzlich beispielsweise 120% hoch und 160% breit. Andere Formeln werden willkürlich kleiner, wieder andere bleiben wie sie sollen. Das war damals nicht, als ich das Makro beim ersten Dokument einsetzte, funktionierte alles. Nun werden die Formeln verrissen.
Nun wollte ich das beheben, indem ich im Makro auch noch eintrage
Selection.InlineShapes(1).Height = 100%
(gleiches für .Width), musste aber feststellen, dass die Eingabe 100% in VBA unzulässig ist.
Kann mir hier jemand weiterhelfen?
Ich sage schonmal vielen Dank!!!!
--------- Und hier das Makro:
Sub Zuschneiden()
Dim dasfeld As Field
For Each dasfeld In ActiveDocument.Fields
If dasfeld.Type = wdFieldEmbed Then
If InStr(1, dasfeld.Code, "Equation") 0 Then
dasfeld.InlineShape.PictureFormat.CropLeft = 1.42
dasfeld.InlineShape.PictureFormat.CropRight = 1.42
Else
End If
Else
End If
Next
End Sub