VBA to Center Text in a Shape

[MikeG]

I would appreciate any help...

I have a macro that creates a shape and then lets me format it. For example, this part of the code allows me to bold the text:

With MyShape.TextFrame
.Characters.Font.Bold = False
End With

What I would also like to do is to middle center the text in the shape. I did some research and tried adding the following two lines into the With/End With loop, but get an error:

.HorizontalAnchor = msoAnchorCenter
.VerticalAnchor = msoAnchorTop

Can anyone help me on where I am going wrong?

Thanks,

Mike

 

[Fluff]

You need to use TextFrame2 for that

    With myshape.TextFrame2
      .VerticalAnchor = msoAnchorMiddle
      .HorizontalAnchor = msoAnchorCenter
    End With

 

[MikeG]

You need to use TextFrame2 for that

    With myshape.TextFrame2
      .VerticalAnchor = msoAnchorMiddle
      .HorizontalAnchor = msoAnchorCenter
    End With

Thanks! Appreciate it.

 

[Fluff]

You're welcome & thanks for the feedback.