TextRange

Is there any methods to finding left position of each textrange from
collection(..through pro grammatically)
say i have one long text having different fonts ,I use Runs method to
getting each textrange. but if i call BoundLeft
it is giving same position(left most textrange's) is there any way to
get each textrange's left..or any other tricks?
thanks in advance..

In article ,
wrote:
Is there any methods to finding left position of each textrange from
collection(..through pro grammatically)
say i have one long text having different fonts ,I use Runs method to
getting each textrange. but if i call BoundLeft
it is giving same position(left most textrange's) is there any way to
get each textrange's left..or any other tricks?
thanks in advance..

Sub BoundingAlongMerrily()

Dim oRng As TextRange
Dim x As Long
Dim oSh As Shape

Set oSh = ActiveWindow.Selection.ShapeRange(1)
For x = 1 To oSh.TextFrame.TextRange.Runs.Count
Set oRng = oSh.TextFrame.TextRange.Runs(x)
Debug.Print oRng.BoundLeft
Next

End Sub

That works in VBA/PPT2003. Give it a try in 2007; perhaps there's a bug there
that prevents it from working properly.


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================

thanks sir ..,
it was my programming misake mistake..getting value properly in 2007
also..i have one more doubt
any call to get left value of textrange while playing slideshow? i
mean instead of getting left value from power point window,any chance
to get from Slideshow window?any trick??

In article ,
wrote:
thanks sir ..,
it was my programming misake mistake..getting value properly in 2007
also..i have one more doubt
any call to get left value of textrange while playing slideshow? i
mean instead of getting left value from power point window,any chance
to get from Slideshow window?any trick??

The same code should work, except that you'd need to access the text box by
name, index or some other method (tags or text content for example). Since you
can't select anything in slide show view, using the current selection won't
work.



-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================