scrollbar macro in powerpoint 2007

[karatemyth]

so im using powerpoint 2007, and i want to use the scrollbar macro that
powerpoint provides for us; but wen i put it in, it does nothing; wat's the
correct way to use this scroll bar macro? also, i've set up action buttons,
wen clicked upon, that makes things move left and rite using motion paths;
however, it doesn't work out like a scroll bar, cuz i have to put in a
starting position for it to start; so it is flawed, and tht's y im using the
scroll bar macro

 

[karatemyth]

sry i dint even see ur reply
im talking bout the developer tab in microsoft powerpoint 2007
they give some objects to insert into the slide
these objects are the macros
when i put my mouse over the button, it tells me it says scrollbar macro
(activexcontrol)

 

[karatemyth]

well i want to have objects move left and rite when i press those buttons
currently i have set up motion paths whose triggers are the left and rite
buttons
basically i want to have objects move left when i press left and objects
move rite wen i move rite
the problem i have wit the motion paths is that their in order; so when u
press rite, it moves rite, but wen u press left rite after that, it moves
left from a different position; in order for it to go smoothly wit the motion
paths, i have to press rite four times, then i can press left to make it look
smooth and normal when it moves

 

[karatemyth]

ill try it out
but again, im not good wit vba

Something like this might do it:
(watch for line breaks)

Private Sub ScrollBar1_Change()
Static LastValue As Single
Dim IncrementAmount As Single

IncrementAmount = 10 ' but change it to whatever you like

Select Case Me.ScrollBar1.Value
Case Is > LastValue
ActivePresentation.Slides(1).Shapes("Rectangle 3").IncrementLeft (IncrementAmount)
Case Is < LastValue
ActivePresentation.Slides(1).Shapes("Rectangle 3").IncrementLeft (-IncrementAmount)
End Select

' and remember the current value for future comparisons
LastValue = Me.ScrollBar1.Value

End Sub






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

 

[karatemyth]

i want textboxes to moves left and rite wen i click left and rite
so i tried entering textbox 1 where rectangle 1 was, and it dint work
is it supposed to work? then it couldve been a typo on my part
unless there is another code for moving textboxes
also, can u use that same code but for a different object?
say if i designed my own button, can i make it do just that?

 

[karatemyth]

meaning that i want to substitute the scrollbar for an object that i designed
myself

 

[karatemyth]

Good Idea.
Alright, So I have one long rectangle and objects above and below it. As I
click left, the objects and rectangle should move left and vice versa. I have
the long rectangle increase in size and change positions as effects at the
beginning of the slide. Then the other objects around the long rectangle zoom
in. As the same time all this zooms in, the Left and Right control buttons
zoom in. After all this, I want to move all these object left and right from
the position the effects place them in. Alright, I think I got everything. Is
there anything you still want me to clear up?