Posts by ReDvaNiLLa

I have a Macro code that pops up a shape and moves it across the screen.
I want to be able to move a picture instead of a shape.
How do I go about doing that?

Here's my code

Option ExplicitPrivate Declare Sub SleepNow Lib "kernel32" _
        Alias "Sleep" _
        (ByVal dwMilliseconds As Long)
Const NUM_STEPS As Long = 20
Const SHAPE_DIAMETER As Long = 20
Sub MoveShape()
   Dim shp As Shape
   Dim asglMovements(1) As Single
   Dim n As Long
   
   Dim rngStart As Range, rngStop As Range
   
   Set rngStart = Range("A1")
   Set rngStop = Range("A15")
   
   asglMovements(0) = (rngStop.Top - rngStart.Top) / NUM_STEPS
   asglMovements(1) = (rngStop.Left - rngStart.Left) / NUM_STEPS
   
   Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, rngStart.Left, rngStart.Top, SHAPE_DIAMETER, SHAPE_DIAMETER)
   For n = 1 To NUM_STEPS
      With shp
         .Visible = msoFalse
         .Top = .Top + asglMovements(0)
         .Left = .Left + asglMovements(1)
         .Visible = msoCTrue
         SleepNow 25
      End With
      DoEvents
   Next n
End Sub

Re: How to set the sheet as default?

Thank you everyone.

I have used PCI's code and it worked well. Good Job PCI!

I will try the other codes.

Thank you very much you guys.

I have edited a workbook that originally had just an excel game on it.
I created a new sheet tab on the same workbook and labeled it Sheet1 and that leaves the excel game on Sheet 2 or 3.
My problem is that every time I open my workbook, it automatically goes to the the sheet with the game on it.
I tried to force a code but it didn't work. This is the code I used...

Private Sub Workbook_Open()
    Sheets("Welcome Color Laser Team!").Select
End Sub

I just started studying macros and VBA. So I have no idea what I am doing.
I need help.

Re: Rotate Image

Oops, sorry about that.

But thank you for informing me Ger.

Re: Rotate Image

Hi you guys!

Dodger7, how do you select the "OzLogo"?

Thanks