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

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").Select
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


(E-Mail Removed) 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

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").Select
> 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
>
>
> (E-Mail Removed) 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