Turning a pic

  • Thread starter Thread starter Bee
  • Start date Start date
B

Bee

Hello all ..

How do I half turn a picture like turning a page ????

I found the simple rotate thingy .. Hmm how Der of me :-)

This one is a little more tricky for me.
Cheers

Bee!
 
Bee,

It can't really be done in PowerPoint, but a graphic program such as Corel
may allow that option to be done to a static image.

--
Regards,

Glen Millar
Microsoft PPT MVP
http://www.powerpointworkbench.com/
Please tell us your ppt version, and get back to us here
Remove spaces from signature
 
Variations on a previous theme ...

Sub FlipPage(oShp As Shape)
StartingPoint = oShp.Width
For AdjLoc = StartingPoint To 0 Step -10
oShp.Width = AdjLoc
DoEvents
Next AdjLoc
For AdjLoc = oShp.Left To oShp.Left - StartingPoint Step -10
oShp.Width = oShp.Width + 10
oShp.Left = AdjLoc
DoEvents
Next AdjLoc
End Sub

Apply Action Setting to picture.

b



--
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
Oh, PS, remember to uncheck ratio lock on the picture format.

B


--
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
Still having problems with the froth loop within the latte sub-routine.
Kinda blows up in my face every time. Keep scalding myself over not being
able to fix it. But rather than work myself into a lather, I just use the
exxprressoo routinne.

(gg)
B
 
able to fix it. But rather than work myself into a lather, I just use the
exxprressoo routinne.
Click to expand...

xx rr e ss oo?

Looks like Mr.Barista's got a counter problem.

(If you don't keep that clean, it draws ants.)
 
I don't quite understand what you are trying to do with the second loop. I
modified your code a bit to get the following snippet. It gives a flip kind
of effect. Each click on the picture (shape) will flip it:

---
Sub FlipPage(oShp As Shape)
Dim StartingPoint As Double
Dim AdjLoc As Double

StartingPoint = oShp.Width
For AdjLoc = StartingPoint To 0 Step -10
oShp.Width = AdjLoc
DoEvents
Next
oShp.Flip msoFlipHorizontal
For AdjLoc = 0 To StartingPoint Step 10
oShp.Width = AdjLoc
DoEvents
Next AdjLoc
End Sub
---

- Chirag

PowerShow - View multiple shows simultaneously
http://officerone.tripod.com/powershow/powershow.html
 
Steve & Chirag,
This is why you guys are gurus and I sit in a dark room all day.

BTW, keyboard is much better now that the espresso buzz is wearing off.

B
 
This is why you guys are gurus

Speaking strictly for myself, I think that's a rather odd way to spell
"doofus"
;-)

Hey, instead, how about "This is why this newsgroup is such a prize"?
We all jump in with ideas.
 
Back
Top