ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Start when open file (https://www.excelbanter.com/excel-programming/426199-start-when-open-file.html)

Max
Start when open file
 
All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

ryguy7272
Start when open file
 
Is your code in 'ThisWorkbook'? See this for info.:
http://www.ozgrid.com/VBA/auto-run-macros.htm

HTH,
Ryan---


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

Barb Reinhardt
Start when open file
 
If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

Max
Start when open file
 
When I open the file, it is giving me this:
Run-time error '9':
Subscript out of range.

"Barb Reinhardt" wrote:

If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

Gary''s Student
Start when open file
 
Modify:
Sheets("Sheet1").Activate
replace "Sheet1"
with the name of the tab containing the picture.
--
Gary''s Student - gsnu200842


"MAX" wrote:

When I open the file, it is giving me this:
Run-time error '9':
Subscript out of range.

"Barb Reinhardt" wrote:

If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

ryguy7272
Start when open file
 
It has something to do with your sheet name:
http://www.mrexcel.com/archive/Errors/21047.html

Or, there is no data on the sheet...

Good luck,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Gary''s Student" wrote:

Modify:
Sheets("Sheet1").Activate
replace "Sheet1"
with the name of the tab containing the picture.
--
Gary''s Student - gsnu200842


"MAX" wrote:

When I open the file, it is giving me this:
Run-time error '9':
Subscript out of range.

"Barb Reinhardt" wrote:

If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.

Max
Start when open file
 
Thank you very much, you solved my problem.

"Gary''s Student" wrote:
at
Modify:
Sheets("Sheet1").Activate
replace "Sheet1"
with the name of the tab containing the picture.
--
Gary''s Student - gsnu200842


"MAX" wrote:

When I open the file, it is giving me this:
Run-time error '9':
Subscript out of range.

"Barb Reinhardt" wrote:

If the code really is in the ThisWorkbook module, there are two other reasons
why this may not work:

1) The macros are not enabled when you open the workbook
2) Events are not enabled when you open your workbook.

Check those out and let us know what you find.

HTH,
Barb Reinhardt

"MAX" wrote:

All I want is that is that when I open the file, the animation starts. I have
these codes:
This code is in the Workbook:
Private Sub Workbook_Open()
Sheets("Sheet1").Activate
Call StartDemo1
End Sub
Sub StartDemo1()
On Error Resume Next
Set OldCell = ActiveCell
ActiveSheet.Shapes("Picture 1").Select
For i = 0 To 360 Step 5
Wait (0.08)
Selection.ShapeRange.IncrementRotation 15
Selection.ShapeRange.Left = Selection.ShapeRange.Left + 10
Selection.ShapeRange.Top = Selection.ShapeRange.Top - 0.1
DoEvents
Next i

For i = 360 To 0 Step -10.5
Wait (0.1)
Selection.ShapeRange.IncrementRotation -15
Selection.ShapeRange.Left = Selection.ShapeRange.Left - 20
Selection.ShapeRange.Top = Selection.ShapeRange.Top + 0.1
DoEvents
Next i
Selection.ShapeRange.Top = 300
Selection.ShapeRange.Left = 42
OldCell.Select
End Sub

and I have this code in the Workbook Module:

Sub Wait(DelaySecs As Single)
Dim sngSec As Single
EndDelay = Timer + DelaySecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub

Why I have to run from Macro to start the animation?

Just to tell you that the name of Sheet 1 is Demo1.

Thanks.


All times are GMT +1. The time now is 12:35 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com