TextFrame and VBA

ROTFL --- Unfortunately, I believe that you are correct about the
apps pushing. I don't think that developers, during initial unit
testing, really test their apps to break them. I suspect that they
test them to work. I think that they start with a set of
requirements, develop something to "satisfy" them, and then only test
the ability of the app to meet those requirements. They really ought
to spend time trying to figure out every possible way to do something
wrong. In other words, they need to act like a user who hasn't a
clue. This will open up the areas that need be plugged in terms of
unexpected features. Oh well......

Now, lets talk about COBOL....... (shows my age, huh? LOL )

On Tue, 18 Jan 2005 20:31:58 EST, Steve Rindsberg
wrote:

In article , Jeff Jones wrote:
I put together some code that deletes the last slide and copies the
only slide from my blank.pot file into the presentation I'm working
on. That seems to solve the problem, at least until the next problem.
giggle I'll try the HTML toggle to test the integrity of the slide.
I have observed that we get unexpected features for some of microsoft
apps

Aw shoot. Push any app from anybody hard and you'll get unexpected features. ;-)

and wouldn't be surprised that PowerPoint has its own.

Not PowerPoint, naw, nope nuh-uh, never. ROFL!

I'll let you know what happens with the HTML toggle tomorrow morning.
I have a healthy group of stuff to catch up on. Sigh......

The batteries are charging as my phabulous phlying phlanges dance over
the keys......

Take care,
Jeff

Streve,

I believe that, at least until I find the need, I can declare victory
with the following code.


Sub TestShapes()

Dim numShapes, numAutoShapes, i As Long
Dim oSld As Slide
Dim oTxtRange As TextRange
Dim varTextFrame As Variant

On Error GoTo HandleError
Stop
StartAgain:
Set myDocument =
ActivePresentation.Slides(ActivePresentation.Slide s.Count)
With myDocument.Shapes
numShapes = .Count
If numShapes 1 Then
numTextShapes = 0
For i = 1 To numShapes - 1
If .Item(i).HasTextFrame Then
' If .Item(i).HasText Then
numTextShapes = numTextShapes + 1
varTextFrame = .Item(i).Name

ActiveWindow.View.GotoSlide
Index:=ActivePresentation.Slides.Count
Set oSld =
ActivePresentation.Slides(ActivePresentation.Slide s.Count)


ActiveWindow.Selection.SlideRange.Shapes(varTextFr ame).Select

Set oTxtRange =
oSld.Shapes(varTextFrame).TextFrame.TextRange

If Mid$(oTxtRange.Sentences(1), 1, Len("America"))
=
"America" Then
With oTxtRange.Sentences(1) _
.ActionSettings(ppMouseClick).Hyperlink
.Address = "http://www.gsms-am.eds.com/
http://www.gsms-am.eds.com/ "
.TextToDisplay = "Americas:
http://www.gsms-am.eds.com http://www.gsms-am.eds.com " & vbNewLine
.SubAddress = ""
End With

With oTxtRange.Sentences(2) _
.ActionSettings(ppMouseClick).Hyperlink
.Address = "http://www.gsms-ap.eds.com/
http://www.gsms-ap.eds.com/ "
.TextToDisplay = "Asia Pacific:
http://www.gsms-ap.eds.com http://www.gsms-ap.eds.com " & vbNewLine
.SubAddress = ""
End With
With oTxtRange.Sentences(3) _
.ActionSettings(ppMouseClick).Hyperlink
.Address = "http://www.gsms-ea.eds.com/
http://www.gsms-ea.eds.com/ "
.TextToDisplay = "Europe & Africa:
http://www.gsms-ea.eds.com http://www.gsms-ea.eds.com "
.SubAddress = ""
End With
End If
' Else
' DeletEmptyShapes
' End If
End If
NextFor:
Next
End If
End With

Exit Sub

HandleError:
'Stop
If Err.Number = 9 Then
GoTo NextFor
End If
' Resume

'If Err.Number 0 Then
' Msg = "Error # " & Str(Err.Number) & " was generated by " _
' & Err.Source & Chr(13) & Err.Description
' MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
'End If

CopyLastSlide
GoTo StartAgain

End Sub


Sub CopyLastSlide()
'
' Macro created 1/18/2005 by Jeff Jones
'
Windows.Item(Index:=2).Activate
ActiveWindow.ViewType = ppViewSlideSorter
ActiveWindow.Selection.Copy
ActiveWindow.ViewType = ppViewNormal
Windows.Item(Index:=2).Activate
ActiveWindow.View.Paste

ActiveWindow.ViewType = ppViewSlideSorter

ActivePresentation.Slides.Range(Array((ActivePrese ntation.Slides.Count
-
1))).Select
ActiveWindow.Selection.SlideRange.Delete
ActiveWindow.ViewType = ppViewNormal
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Count

End Sub

I tried commenting out the SlideGoTo and the TextFrame selection but
ended up with errors I couldn't trap so I left them in. Oh well. I
tested against 33 of the 150+ presentations with no problems. I
suspect that I'll find other opportunities but for the most part, the
entire effort will be automated and therefore much preferable over
manually making the changes.

Thank you!

Take care,
Jeff

In other words, they need to act like a user who hasn't a
clue. This will open up the areas that need be plugged in terms of
unexpected features.

Too true. I make the same mistake all the time. Stuff works perfectly for me
because I do things the way *I* do them. Give the same code to another user who
holds their mouth a little differently when they doubleclick something and ...
ooopsie!

Now, lets talk about COBOL....... (shows my age, huh? LOL )

Awww bummer. I took the Fortran course instead of Cobol. Darn.



On Tue, 18 Jan 2005 20:31:58 EST, Steve Rindsberg
wrote:

In article , Jeff Jones wrote:
I put together some code that deletes the last slide and copies the
only slide from my blank.pot file into the presentation I'm working
on. That seems to solve the problem, at least until the next problem.
giggle I'll try the HTML toggle to test the integrity of the slide.
I have observed that we get unexpected features for some of microsoft
apps

Aw shoot. Push any app from anybody hard and you'll get unexpected features. ;-)

and wouldn't be surprised that PowerPoint has its own.

Not PowerPoint, naw, nope nuh-uh, never. ROFL!

I'll let you know what happens with the HTML toggle tomorrow morning.
I have a healthy group of stuff to catch up on. Sigh......

The batteries are charging as my phabulous phlying phlanges dance over
the keys......

Take care,
Jeff



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

The winnah and still champeen ....

Congrats!

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

Now, lets talk about COBOL....... (shows my age, huh? LOL )

Awww bummer. I took the Fortran course instead of Cobol. Darn.
Me, I took em both. I even had to take the Cobol one twice. (Long story, but
it was fun correcting the prof the second time through )

--
Kathryn Jacobs, Microsoft MVP PowerPoint and OneNote
Author of Kathy Jacobs on PowerPoint - Available now from Holy Macro! Books
Get PowerPoint answers at http://www.powerpointanswers.com
I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

I can only declare victory because of your help!

It's too bad that you took the Fortran course. 'Course it coulda
been Assembler or some other somewhet useful language like AdPac or
Ramis.

Thnak you for your invaluable help!

On Wed, 19 Jan 2005 11:11:18 EST, Steve Rindsberg
wrote:

The winnah and still champeen ....

Congrats!

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

Awww bummer. I took the Fortran course instead of Cobol. Darn.
Me, I took em both. I even had to take the Cobol one twice. (Long story, but
it was fun correcting the prof the second time through )

Cobol seemed SO longwinded. We had to enter everything onto punchcards; bad
enough in Fortran. I'd still be punching at it if I'd done Cobol!



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

In article , Jeff Jones wrote:
It's too bad that you took the Fortran course. 'Course it coulda
been Assembler or some other somewhet useful language like AdPac or
Ramis.

Hm. How about a language called Dissembler? Never gives the same answer twice
in a row.

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

LOL. That actually sounds more like a politician running for an
election.....

On Wed, 19 Jan 2005 15:54:43 EST, Steve Rindsberg
wrote:

In article , Jeff Jones wrote:
It's too bad that you took the Fortran course. 'Course it coulda
been Assembler or some other somewhet useful language like AdPac or
Ramis.

Hm. How about a language called Dissembler? Never gives the same answer twice
in a row.

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

We were on punch cards. First time through, that was part of the problem.
Second time through, we had moved to a VAX and I was one of the few who
started the school year already knowing how to use the machine. COBOL was
long-winded. But it isn't as bad as, say, PL/1 or PL/C....

--
Kathryn Jacobs, Microsoft MVP PowerPoint and OneNote
Author of Kathy Jacobs on PowerPoint - Available now from Holy Macro! Books
Get PowerPoint answers at http://www.powerpointanswers.com
I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

"Steve Rindsberg" wrote in message
...
Awww bummer. I took the Fortran course instead of Cobol. Darn.
Me, I took em both. I even had to take the Cobol one twice. (Long story,
but
it was fun correcting the prof the second time through )

Cobol seemed SO longwinded. We had to enter everything onto punchcards;
bad
enough in Fortran. I'd still be punching at it if I'd done Cobol!



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