Jump to content
Sign in to follow this  

Need help to change case for PPT Presentation.

Recommended Posts


When i tried this below code ,iam unable to get changecase. pls help me to change the text from upper to lower or lower to upper.Similarly for Bold and Italic also.

Dim Const $PPUPPER = "UPPERCASE" - Variable Declaration

_PPT_SlideChangeCase($objSlide2, 2,$PPUPPER) - Calling function

Func _PPT_SlideChangeCase(ByRef $obj, $intTextFrame, $case) - Called function

If IsObj($obj) <> 1 Then


Return 0


Local $objTextRng = $obj.Shapes.Item($intTextFrame).TextFrame.TextRange

$objTextRng.Font.ChangeCase= $case



Share this post

Link to post
Share on other sites

Hi, devi. Have a look in the helpfile at StringUpper. You should be able to call your $objTextRng and then parse it with StringUpper to provide all upper case.

√-1 2^3 ∑ π, and it was delicious!

How to get your question answered on this forum!

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this