Increasing or decreasing inner margins on a shape

[Maddy]

Hi,

I am trying to add two buttons that increases or decreases the inner margins of the text in a shape in Powerpoint 2007.
You can see from below that I have tried differnt options but I cant get it to work. I know how to set to zero, but I want them to marginally incease/decrease.

Sub button9()
With ActiveWindow.Selection.ShapeRange(1).TextFrame

MarginLeft.ScaleProportionally (2)
MarginRight = ScaleProportionally

End with
End sub

Any help appreciated!
Thank you,
Madeleine

[John Wilson]

ScaleProportionally can only be applied to a TABLE as a whole.

You would need to say something like

.MarginLeft = .MarginLeft + 0.1

[Maddy]

Hi John,

It works perfectly!
Thank you for your help,

Madeleine