Automatically insert pictures
 

Greetings All,

I am setting up a tool that users will insert 1-46 pictures from a
specific directory on their pc's.
It is already set up so that you click a button, insert pic 1, click
button and insert picture 2, etc.

I'd like to have the macro insert all the pictures but would like to
avoid the users having to deal with a run time error, instead I just
want it to stop, or better yet, display a message XX pictures inserted.
A stretch I am sure, so if it stops without the run time error I'll be
happy.

Thanks

Mike

Automatically insert pictures
 

What is the runtime error you are getting? Can you post the relevant
section of your code? That'll make it a little easier.

Regards,
Steve
www.stkomp.com


excel programming wrote:
Greetings All,

I am setting up a tool that users will insert 1-46 pictures from a
specific directory on their pc's.
It is already set up so that you click a button, insert pic 1, click
button and insert picture 2, etc.

I'd like to have the macro insert all the pictures but would like to
avoid the users having to deal with a run time error, instead I just
want it to stop, or better yet, display a message XX pictures inserted.
A stretch I am sure, so if it stops without the run time error I'll be
happy.

Thanks

Mike

Automatically insert pictures
 

One segment of the insert photo macro, any help is appreciated.

Sub Insert03()
Range("A182").Select
ActiveSheet.unprotect
ActiveSheet.Pictures.Insert("C:\dcir\3.JPG").Selec t
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 324#
Selection.ShapeRange.Width = 432#
Selection.ShapeRange.IncrementLeft 70.5
ActiveSheet.PageSetup.printarea = "$A$1:$I$212"
Range("d114").FormulaR1C1 = "3"
Range("B180").Select
End Sub


wrote:
What is the runtime error you are getting? Can you post the relevant
section of your code? That'll make it a little easier.

Regards,
Steve
www.stkomp.com


excel programming wrote:
Greetings All,

I am setting up a tool that users will insert 1-46 pictures from a
specific directory on their pc's.
It is already set up so that you click a button, insert pic 1, click
button and insert picture 2, etc.

I'd like to have the macro insert all the pictures but would like to
avoid the users having to deal with a run time error, instead I just
want it to stop, or better yet, display a message XX pictures inserted.
A stretch I am sure, so if it stops without the run time error I'll be
happy.

Thanks

Mike

Automatically insert pictures
 

Forgot to add: Runtime error: 1004
Unable to get the insert property of the pictures class.


excel programming wrote:
One segment of the insert photo macro, any help is appreciated.

Sub Insert03()
Range("A182").Select
ActiveSheet.unprotect
ActiveSheet.Pictures.Insert("C:\dcir\3.JPG").Selec t
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 324#
Selection.ShapeRange.Width = 432#
Selection.ShapeRange.IncrementLeft 70.5
ActiveSheet.PageSetup.printarea = "$A$1:$I$212"
Range("d114").FormulaR1C1 = "3"
Range("B180").Select
End Sub


wrote:
What is the runtime error you are getting? Can you post the relevant
section of your code? That'll make it a little easier.

Regards,
Steve
www.stkomp.com


excel programming wrote:
Greetings All,

I am setting up a tool that users will insert 1-46 pictures from a
specific directory on their pc's.
It is already set up so that you click a button, insert pic 1, click
button and insert picture 2, etc.

I'd like to have the macro insert all the pictures but would like to
avoid the users having to deal with a run time error, instead I just
want it to stop, or better yet, display a message XX pictures inserted.
A stretch I am sure, so if it stops without the run time error I'll be
happy.

Thanks

Mike