Checking for msoPicture fails on one computer?

[Gregg]

Any ideas why this code won't operate the same on one specific computer
but works on all others I've tested on. (snippet below)

If ActiveWindow.Selection.ShapeRange.Type <> msoPicture Then
Msgbox "This is not the correct type of graphic."
Exit Sub
End if

In tests, the same graphic (jpg non-linked) was used. When ran, the
code saw it as an msoPicture on all machines except for one. I'm not
sure what it sees it as on that machine because it's a remote user that
I have limited contact with.

The only difference I can see with her machine is she has NO service
packs with her PPT 2002 and everyone else has PPT 2002 SP1 or SP3.

Could that be it?

 

[Gregg]

Hi, Steve. Thanks for the response.

There I go assuming. I detest that feature so much I assume everyone
has it turned off by now and I never think about it anymore.

But in a test I just ran, it seems that's the culprit. Whereas the jpg
is a type 13, with the AutoCorrect feature on, it brings in the jpg as
a type 14. That's seems to be an msoPlaceholder instead of msoPicture.

I can adjust my code easily enough to allow the object to be an
msoPlaceholder as well as an msoPicture, but that opens a whole 'nuther
can of _________. You see, since that feature changes the AutoLayout
itself (#$!!%$#!), I have to add code to check for AutoLayout type and
change it back to a two column layout and then proceed to work with the
graphic.

Oh, joy, what fun!

 

[Gregg]

Don't want to rock the boat. Then I'd have to sing...

Everybody hates me
Nobody likes me
I'm gonna eat some ______.

BTW, in testing, when I copied the graphic-made-PH object, the copy
also became a PH. In fact, 3 pastes all became PH (making a 4 content
layout). Finally, the 5th paste resorted to a picture, because PPT ran
out of placeholders, I guess. Then there's the mopping up afterwards.

Of course, I'm using 2002 and thank goodness 2003 doesn't operate this
way. It looks like this will all go away and become a moot point for me
with the new installation. And any of my users unwilling to upgrade to
2003 (it's free for them), I'll just send them a box of tough cheese in
condolence.