srtama.blogg.se - Flip pictures in word

You just edit your document (for example, using MS-Word) and place your graphics where you want them on the page. NOTE: The simplest iron ons have no lettering or words. Allow for a margin on top, bottom, left and right. Your document size to the height and width of the area on your fabric that you will be printing on.

color printer (be sure you have enough ink)Ĭhoose and insert your favorite clip art pictures -Use any word processing program (I used Microsoft Word) to set up.

tee shirt or piece of light colored fabric.

digital image: free clip art, scanned image or digital photograph.

RotationShapeRange.Jacquard Iron-On Transfer Paper DIY Iron On Transfers Materials/Supplies needed to make Iron Ons RotationShapeRange.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage RotationArray(UBound(RotationArray)) = iShapeIndexĪnd after the ShapeRange is fully populated: If bIsDimensioned = True Then ReDim Preserve RotationArray(0 To UBound(RotationArray) + 1) As Variant

ReDim Preserve RotationArray(0 To 0) As Variant Instead of rotating every Word.Shape individually, I gather them all in a ShapeRange via their Indexes (or whatever the plural is on that one) and rotate them all at once. Activate and the like but nothing seems to work. Additionally if I set the visibility for the Word-Document to TRUE, debug through, and fullscreen the Word-Document before the script performs the rotation, it will rotate any Word.Shape every time. Although I the first Word.Shape meeting the criteria will be rotated, any others will not. '- 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.