'- Kontrolle ob rotiert oder natives Querformat. '- Kontrolle ob Bild im Querformat vorliegt. SiAspectRatio = oShapeToCheck.Height / oShapeToCheck.Width If oShapeToCheck.Height > 0 And oShapeToCheck.Width > 0 Then '- Seitenverhältnis und Rotation berechnen. Here's how the loop is designed: For Each wrdShape In wrdDoc.ShapesĪnd now the part that's acting up: Private Function CheckFormat(oShapeToCheck As Word.Shape) As Boolean
Here's how the Word-Document comes to be (opens a PDF with one Shape per page): Set wrdDoc = (FileName:=sToSaveAs, Visible:=False) I need to rotate Word.Shapes in a single Word-Document, but my script will only rotate the first one, and i can't figure out why.
