Add a textbox below current textbox

Question

I currently have one shape on my slide. One Textbox. I would like to add another Textbox right below the first one, but with the same dimensions.

How do I determine the dimensions of the first Textbox and then place the next one below without spilling over the bottom of the slide?

Answer 1

This is the basic code to replicate Steve's answer

Sub textDupe()

Dim osld As Slide

Dim oshp As Shape

Set osld = ActiveWindow.Selection.SlideRange(1)

Set oshp = osld.Shapes(1)

With oshp.Duplicate

.Top = oshp.Top + oshp.Height

.Left = oshp.Left

End With

End Sub

Answer 2

Thank you John. This works great.

Answer 3

Meant to put it in the title, but I was actually looking to do this with some vba since I have multiple slides I'll be doing this for.

Answer 4

Trip's suggestions are good.

You can also click inside the first text box, press ESC to select the box rather than the text within it, then press CTRL+D to duplicate it. Then use PPT's alignment tools to align the duplicate with the first text box.

Then move the new text box downward and let PPT's little red alignment indicators show you when you've matched the top of the new box with the bottom of the original.

Probably takes less time to do than it took me to write.

Answer 5

I currently have one shape on my slide. One Textbox. I would like to add another Textbox right below the first one, but with the same dimensions.

How do I determine the dimensions of the first Textbox and then place the next one below without spilling over the bottom of the slide?

How do I determine the dimensions of the first Textbox

1.

Click the Text Box then:-

Shape Format tab

Size group (on the far right-hand side)

In here you’ll see the size of the Text Box for example:-

1.03

8.2

and then place the next one below without spilling over the bottom of the slide?

2.

Insert a new Text Box beneath the existing one then:-

Shape Format tab

Size group (on the far right-hand side)

 - change the sizes for example:-

1.03

5.8

 - to the required sizes to prevent spill over.