Need help with changing vba for excel 7!!!!

chrysti

Board Regular
Joined
Dec 20, 2006
Messages
218
Sub InsertImageSameCell()

On Error Resume Next
Let x = 0
Do While x < 720

Set Path = ActiveCell.Offset(0, 0)

ActiveSheet.Pictures.Insert( _
Path).Select

Selection.ShapeRange.ZOrder msoBringToFront

ActiveCell.Offset(1, 0).Range("A1").Select

x = x + 1
Loop

End Sub


This is my code, it hangs up on the ActiveSheet.Pictures.Insert, I know this has to be changed, I just don't know what to change it to for it to work!!!

Thanks in advance for the help!!!
Chrysti
 

Excel Facts

Ambidextrous Undo
Undo last command with Ctrl+Z or Alt+Backspace. If you use the Undo icon in the QAT, open the drop-down arrow to undo up to 100 steps.

HalfAce

MrExcel MVP
Joined
Apr 6, 2003
Messages
9,456
Hi Chrysti,
I don't have my 07 here (it's at home enjoying a day off that I didn't get :mad: ) but I would think if you recorded yourself a quick little macro inserting a picture, it would show you the syntax you need to see.
 

Norie

Well-known Member
Joined
Apr 28, 2004
Messages
76,343
Office Version
  1. 365
Platform
  1. Windows
Chrysti

Are you sure the line you indicate is what needs to be changed?

What do you mean by 'hangs up'?

Are you getting any error messages?
 

chrysti

Board Regular
Joined
Dec 20, 2006
Messages
218
Yes I get an error, but it comes up and I don't get to read it because my Excel gives me the fatal error recovering work and shutting down error. It basically makes my whole Excel shut down. But when I step through the macro that is the step that causes all of this to happen everything before that it runs like normal.
 

HalfAce

MrExcel MVP
Joined
Apr 6, 2003
Messages
9,456
Have you tried recording the actions you want it to perform and having it tell you what it wants to see?
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,729
Messages
5,833,348
Members
430,205
Latest member
chang2807

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top