Jump to content
Sign in to follow this  
devi

Need help to change case for PPT Presentation.

Recommended Posts

devi

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

SetError(1)

Return 0

Else

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

$objTextRng.Font.ChangeCase= $case

Endif

EndFunc

Share this post


Link to post
Share on other sites
JLogan3o13

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!

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  

×