Mega Code Archive

 

Categories / VisualBasic Script / Application

 

How your VBA code can change the position of a toolbar

Sub MoveToolbar()     With CommandBars("MyToolbar")         OldLeft = .Left         OldTop = .Top         For i = 1 To 60             .Left = Int(vidWidth * Rnd)             .Top = Int(vidHeight * Rnd)             DoEvents         Next i         .Left = OldLeft         .Top = OldTop     End With End Sub