Click on the Colors and Lines tab, if necessary. Word displays the Format Text Box dialog box. (If you click on the text box itself, handles appear around the perimeter.) Select the Text Box option from the Format menu. If you need any clarification please let me know. Either click on the border of the text box or position the insertion point within the text box. Making the images inserted have Tight text wrappingĪny help would be deeply appreciated.For example, inserting image #1 and then inserting image #2 3 lines below image #1 Carrying on from #2, inserting them in order with a specific amount of space between each image.If possible, insert them in the order in which they were selected.Insert the images already resized to an 11cm height whilst keeping the aspect ratio.
Remarks For controls, the BorderStyle property uses the following settings. The Border and Shading Options dialog box. Step 3: Repeat step 1 and step 2 until all the undesired text boxes are removed. BorderStyle expression A variable that represents a TextBox object. Word displays the Borders and Shading Options dialog box. Step 2: Click the border of the text box, press Delete.
If there are just one or two text boxes you want to remove, you can do as follows: Step 1: Click inside the text box and press Ctrl+C to copy the text (skip this step if you don’t want to keep the text). (The smaller the point size ('pt'), the thinner the line is.) Set the line thickness Select the text box or shape border. With the shape selected, on the Shape Format tab, select Shape Outline > Sketched, and then select a line width.
Is there anyone who can help me write a code where - Sub AddATextBox() Dim aShp As Shape Set aShp (Type:msoShapeRectangle, Left:100, Top:100, Width:25, Height:25, Anchor:Selection.Paragraphs(1).Range) With aShp. Manually remove all text boxes one by one. Select an existing shape in your document, or draw a new one. The resolution from our camera makes the inserted images too big to place two photos + caption into one page, which makes editting a hassle (it actually makes up the majority of the time required to do the report)Ĭurrently I have a macro that changes ALL current images in the word doc to a specific size, but this gets annoying because I tend to insert 5-6 images at a time and by the 10th+ image, every time I press that macro it goes through each image and takes a long amount of time. Procedure to call in the CommandButton: Sub AddDynamicTextBox () Add Dynamic TextBox and assign it to object Lbl Set lbl ('Forms.TextBox.1') Assign TextBox Name lbl.Caption 'Dynamic TextBox' TextBox Border Style lbl.BorderStyle 2 TextBox Position lbl.Left 10 lbl. As part of my work, I'm required to compile reports that involve inserting a lot of images from our camera into a word document and putting a caption to each photo (Fig 1, Fig 2 etc.).