Vertical scroll on long image

Further to this, Brian.
It seems as if it is not so-much file-size related but width related. I
gradually decreased the width of my picture from full screen (25.4 cm) -
when it fell below 24cm then everything worked.

It works for crawl-in but not for credit where truncation seems to take
effect.

cheers
Chris

"Chris Watts" wrote in message
...
Thanks for that Brian.
Your file runs just fine, with full length crawl-in, when I run it on my
machine using PPT2007.
If I use the PPT facility to substitute my (about 400KB) file then that
too runs just fine.
But if I create a new slide, add my file and add crawl-in then it is
truncated at the top!

Very odd indeed!
cheers
Chris

Hello, Chris,

I've attached the crawl-in PP2003 file. Just a single to show it.
It works on my PP20003.

Regards,

Brian.

Many thanks Steve.
I have succeeded and now have a macro that will scroll up a long image
(within the limits of its original top position and the bottom of the
screen) and will allow the scroll to be paused and resumed with key-presses.
I will happily post it here if you think it might be of wider interest..

cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
Is there one for capturing the pressing of a specific key? I can work
with
that.

Again, this'll need WinAPI calls, but it's not too difficult:

This example assumes you're using a form but could be adapted:
http://support.microsoft.com/kb/277916

http://gpwiki.org/index.php/VB:Tutor...etKeyState_API

Google GetKeyState for more examples.


cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
I derived it from something a read on a web posting (not here) -
clearly
from what you say it is not correct!
What is the native expressing for capturing a mouse-click event?

PowerPoint doesn't have one, unfortunately. Or if it does, I've never
heard of
it.

You might have to look to the Windows API for this.

cheers
Chris

"Steve Rindsberg" wrote in message
...
Where did the MouseButtons.Left code come from? It's not native to
PowerPoint.


In article , Chris Watts
wrote:
I have adapted some VBA code originally written by Bill Dilworrh
(many
thanks to you Bill) that achieves pretty much what I need. The
code
is
below - and it works, even if rather slowly, in PPT 2007.

I wish to add some code so that I can interupt the scrolling with a
mouse
click - and then restart it with another mouse click..
When I add the commented-out line
If MouseButtons.Left = True Then GoTo Pause
all that happens is that the code runs and moves the image up only
one
step
and then stops with no action from me. What am I doing wrong?
cheers
Chris

======================
Sub MoveUp(oShp As Shape)

'Determine the endpoint for the motion.
'In this case when the bottom edge of the image lines _
up with starting top of the image.
Endpoint = oShp.Top - oShp.Height

'Define amount to move image
Shift = 20
Offset = 475

While oShp.Top Endpoint + Offset

'Move the picture a little upwards
oShp.Top = oShp.Top - Shift

'Re-render the screen
DoEvents

' If MouseButtons.Left = True Then GoTo Pause

'Loop back if not done
Wend

Pause:
End Sub
==========================

"Chris Watts" wrote in message
...
PPT 2007

I am trying to achieve a credit animation (or similar slow
vertical
scroll) on an image that is about five times the screen height.
Everything that I have tried (eg Motion path, crawl in, ascend)
does
scroll but not for the whole height of the image - it either
crops
off
the
top or bottom as if it didn't exist. It looks as if these
effects
have
a
height limit. Is that so? Is the a way around it?

TIA
cheers
Chris


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/

In article , Chris Watts wrote:
Thanks Steve.
A trip down memory lane ahead! - the last time I used a Windows API was with
Windows 3.1

It's a lot more fun now; making mistakes might crash your add-in but as a rule,
won't kill PPT, much less make Windows start swallowing large lumps of the farm
the way it used to.


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/

In article , Chris Watts wrote:
Many thanks Steve.
I have succeeded and now have a macro that will scroll up a long image
(within the limits of its original top position and the bottom of the
screen) and will allow the scroll to be paused and resumed with key-presses.
I will happily post it here if you think it might be of wider interest..

By all means, yes, please do.

And if you don't mind my adding it to the PPT FAQ, let me know.


cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
Is there one for capturing the pressing of a specific key? I can work
with
that.

Again, this'll need WinAPI calls, but it's not too difficult:

This example assumes you're using a form but could be adapted:
http://support.microsoft.com/kb/277916

http://gpwiki.org/index.php/VB:Tutor...etKeyState_API

Google GetKeyState for more examples.


cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
I derived it from something a read on a web posting (not here) -
clearly
from what you say it is not correct!
What is the native expressing for capturing a mouse-click event?

PowerPoint doesn't have one, unfortunately. Or if it does, I've never
heard of
it.

You might have to look to the Windows API for this.

cheers
Chris

"Steve Rindsberg" wrote in message
...
Where did the MouseButtons.Left code come from? It's not native to
PowerPoint.


In article , Chris Watts
wrote:
I have adapted some VBA code originally written by Bill Dilworrh
(many
thanks to you Bill) that achieves pretty much what I need. The
code
is
below - and it works, even if rather slowly, in PPT 2007.

I wish to add some code so that I can interupt the scrolling with a
mouse
click - and then restart it with another mouse click..
When I add the commented-out line
If MouseButtons.Left = True Then GoTo Pause
all that happens is that the code runs and moves the image up only
one
step
and then stops with no action from me. What am I doing wrong?
cheers
Chris

======================
Sub MoveUp(oShp As Shape)

'Determine the endpoint for the motion.
'In this case when the bottom edge of the image lines _
up with starting top of the image.
Endpoint = oShp.Top - oShp.Height

'Define amount to move image
Shift = 20
Offset = 475

While oShp.Top Endpoint + Offset

'Move the picture a little upwards
oShp.Top = oShp.Top - Shift

'Re-render the screen
DoEvents

' If MouseButtons.Left = True Then GoTo Pause

'Loop back if not done
Wend

Pause:
End Sub
==========================

"Chris Watts" wrote in message
...
PPT 2007

I am trying to achieve a credit animation (or similar slow
vertical
scroll) on an image that is about five times the screen height.
Everything that I have tried (eg Motion path, crawl in, ascend)
does
scroll but not for the whole height of the image - it either
crops
off
the
top or bottom as if it didn't exist. It looks as if these
effects
have
a
height limit. Is that so? Is the a way around it?

TIA
cheers
Chris


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/

Happy for you to add it to the PPT FAQ.
Trying now to add a backup feature to it but having trouble with variable
scope.

Code below.
cheers
Chris
====================
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long)
As Integer
Private Const KEY_PRESSED As Integer = &H1000

Sub MoveUp(oShp As Shape)
'Scroll an image upwards within the limits of its _
original top point and the bottom of the screen
'Includes provison for stopping and restarting the scroll _
Q key to Halt; R key to Resume.

'Determine the endpoint for the motion.
'In this case when the bottom edge of the image lines _
up with starting point for the top of the image.
Endpoint = oShp.Top - oShp.Height

'Defines the bottom of the screen where the bottom of the imgae should
stop
Offset = 475

'Define amount to move image each time
Shift = 20

While oShp.Top Endpoint + Offset

'Move the picture a little upwards
oShp.Top = oShp.Top - Shift

'Re-render the screen
DoEvents

'Pause scrolling on pressing Q key
If GetKeyState(vbKeyQ) And KEY_PRESSED Then PauseMove

'Loop back if not done
Wend
End Sub

Sub PauseMove()
PauseMo
'Resume scrolling on pressing Q key
If GetKeyState(vbKeyR) And KEY_PRESSED Then GoTo PauseEnd

DoEvents
GoTo PauseMore
PauseEnd:
End Sub
================================================== ==
"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
Many thanks Steve.
I have succeeded and now have a macro that will scroll up a long image
(within the limits of its original top position and the bottom of the
screen) and will allow the scroll to be paused and resumed with
key-presses.
I will happily post it here if you think it might be of wider interest..

By all means, yes, please do.

And if you don't mind my adding it to the PPT FAQ, let me know.


cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts wrote:
Is there one for capturing the pressing of a specific key? I can work
with
that.

Again, this'll need WinAPI calls, but it's not too difficult:

This example assumes you're using a form but could be adapted:
http://support.microsoft.com/kb/277916

http://gpwiki.org/index.php/VB:Tutor...etKeyState_API

Google GetKeyState for more examples.


cheers
Chris

"Steve Rindsberg" wrote in message
...
In article , Chris Watts
wrote:
I derived it from something a read on a web posting (not here) -
clearly
from what you say it is not correct!
What is the native expressing for capturing a mouse-click event?

PowerPoint doesn't have one, unfortunately. Or if it does, I've
never
heard of
it.

You might have to look to the Windows API for this.

cheers
Chris

"Steve Rindsberg" wrote in message
...
Where did the MouseButtons.Left code come from? It's not native
to
PowerPoint.


In article , Chris Watts
wrote:
I have adapted some VBA code originally written by Bill Dilworrh
(many
thanks to you Bill) that achieves pretty much what I need. The
code
is
below - and it works, even if rather slowly, in PPT 2007.

I wish to add some code so that I can interupt the scrolling
with a
mouse
click - and then restart it with another mouse click..
When I add the commented-out line
If MouseButtons.Left = True Then GoTo Pause
all that happens is that the code runs and moves the image up
only
one
step
and then stops with no action from me. What am I doing wrong?
cheers
Chris

======================
Sub MoveUp(oShp As Shape)

'Determine the endpoint for the motion.
'In this case when the bottom edge of the image lines _
up with starting top of the image.
Endpoint = oShp.Top - oShp.Height

'Define amount to move image
Shift = 20
Offset = 475

While oShp.Top Endpoint + Offset

'Move the picture a little upwards
oShp.Top = oShp.Top - Shift

'Re-render the screen
DoEvents

' If MouseButtons.Left = True Then GoTo Pause

'Loop back if not done
Wend

Pause:
End Sub
==========================

"Chris Watts" wrote in message
...
PPT 2007

I am trying to achieve a credit animation (or similar slow
vertical
scroll) on an image that is about five times the screen
height.
Everything that I have tried (eg Motion path, crawl in,
ascend)
does
scroll but not for the whole height of the image - it either
crops
off
the
top or bottom as if it didn't exist. It looks as if these
effects
have
a
height limit. Is that so? Is the a way around it?

TIA
cheers
Chris


==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/



==============================
PPT Frequently Asked Questions
http://www.pptfaq.com/

PPTools add-ins for PowerPoint
http://www.pptools.com/