how to change the wordwrap of the selected shape in powerpoint by comobj Topic is solved

[AAHKUser]

hi everyone, i am new about ComObjectActive, and i have some problem when i try to change the wordwrap and margin of the selected shape in powerpoint. it is a high frequency but no shortcut, cant use alt+jd...

there is my current code, i cant find the selected shape:

Code: Select all

+F3::
oPPT := ComObjectActive("PowerPoint.Application")
SlideNumber := oPPT.ActiveWindow.Selection.SlideRange.SlideIndex 
ShapesNum := oPPT.ActiveWindow.Selection.ShapeRange.SlideIndex  ; this line goes wrong, others are right
oPPT.ActivePresentation.Slides(SlideNumber).Shapes(ShapesNum).TextFrame.MarginBottom := 0
oPPT.ActivePresentation.Slides(SlideNumber).Shapes(ShapesNum).TextFrame.MarginLeft := 0
oPPT.ActivePresentation.Slides(SlideNumber).Shapes(ShapesNum).TextFrame.MarginRight := 0
oPPT.ActivePresentation.Slides(SlideNumber).Shapes(ShapesNum).TextFrame.MarginTop := 0
oPPT.ActivePresentation.Slides(SlideNumber).Shapes(ShapesNum).TextFrame.WordWrap := False

thanks!

[boiler]

This works for me:

Code: Select all

+F3::
oPPT := ComObjectActive("PowerPoint.Application")
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginBottom := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginLeft := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginRight := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginTop := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.WordWrap := False
return

It's really only meant to be applied to a single selection, which sounds like what you are looking for. If you have more than one shape selected, it only applies it to the first one.

[AAHKUser]

This works for me:

Code: Select all

+F3::
oPPT := ComObjectActive("PowerPoint.Application")
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginBottom := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginLeft := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginRight := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.MarginTop := 0
oPPT.ActiveWindow.Selection.ShapeRange(1).TextFrame.WordWrap := False
return

It's really only meant to be applied to a single selection, which sounds like what you are looking for. If you have more than one shape selected, it only applies it to the first one.

it works! thank you!