To je najlakse u Dreamweaveru ili u Flashu, a u Power Point ne moze da se ubaci flash dugme. Imas SlideShow/ActionButtons ako ti to nesto pomaze ili za obicno dugme nesto kao simulaciju, ali nije bas to sto trazis jer u Power Pointu VB ne prihvata za CommandButton event MouseOver.
Evo ti dakle kod za nesto priblizno (Boje mozes da promenis ako ti se ne svidjaju):
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.Next
End Sub
Private Sub CommandButton1_GotFocus()
CommandButton1.BackColor = &H80000018
End Sub
Private Sub CommandButton1_LostFocus()
CommandButton1.BackColor = &H8000000F
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &H80000013
End Sub
|