This works Great! Thanks
Sub InsertAndMovePicture(sPictureName As String, sCellAddress As String)
'InsertAndMovePicture Macro Written by
'Jon Peltier, Microsoft Excel MVP
'Tutorials and Custom Solutions
'Peltier Technical Services, Inc. -
http://PeltierTech.com
'02/25/08
'
With ActiveSheet.Pictures(sPictureName)
.Left = ActiveSheet.Range(sCellAddress).Left
.Top = ActiveSheet.Range(sCellAddress).Top
End With
End Sub
Sub CallMovePicture()
ActiveSheet.Pictures.Insert("C:\CRISNET\EXPORT\CMA_Picture_Group\CMA_Picture.jpg").Select
Selection.Name = "Picture-1"
Application.Run "InsertAndMovePicture", "Picture-1", "A1"
End Sub
"Jon Peltier" wrote:
> Sub InsertAndMovePicture(sPictureName As String, sCellAddress As String)
> With ActiveSheet.Pictures(sPictureName)
> .Left = ActiveSheet.Range(sCellAddress).Left
> .Top = ActiveSheet.Range(sCellAddress).Top
> End With
> End Sub
>
>
> - Jon
> -------
> Jon Peltier, Microsoft Excel MVP
> Tutorials and Custom Solutions
> Peltier Technical Services, Inc. - http://PeltierTech.com
> _______
>
>
> "Marvin" <(E-Mail Removed)> wrote in message
> news:F7FF2C6A-1DA3-4FE0-A0D1-(E-Mail Removed)...
> > Jon, I have multiple named pictures on the page and they end up piled
> > together. Is there a way to adjust each picture by name?
> >
> > "Jon Peltier" wrote:
> >
> >> This is so minor compared to other issues, I would not expect it to be
> >> addressed.
> >>
> >> - Jon
> >> -------
> >> Jon Peltier, Microsoft Excel MVP
> >> Tutorials and Custom Solutions
> >> Peltier Technical Services, Inc. - http://PeltierTech.com
> >> _______
> >>
> >>
> >> "Marvin" <(E-Mail Removed)> wrote in message
> >> news:694F1916-3CD3-4FFA-8D4D-(E-Mail Removed)...
> >> > Would you know if Microsoft is planning on fixing this issue in a
> >> > patch?
> >> >
> >> > "Jon Peltier" wrote:
> >> >
> >> >> Try this:
> >> >>
> >> >> Sub InsertAndMovePicture(sPicturePathAndFilename As String,
> >> >> sCellAddress
> >> >> As
> >> >> String)
> >> >> With ActiveSheet.Pictures.Insert(sPicturePathAndFilename)
> >> >> .Left = ActiveSheet.Range(sCellAddress).Left
> >> >> .Top = ActiveSheet.Range(sCellAddress).Top
> >> >> End With
> >> >> End Sub
> >> >>
> >> >> - Jon
> >> >> -------
> >> >> Jon Peltier, Microsoft Excel MVP
> >> >> Tutorials and Custom Solutions
> >> >> Peltier Technical Services, Inc. - http://PeltierTech.com
> >> >> _______
> >> >>
> >> >>
> >> >> "Marvin" <(E-Mail Removed)> wrote in message
> >> >> news:F0196413-2C57-4B3F-8A5B-(E-Mail Removed)...
> >> >> > The following macro worked fine for years in 2003..
> >> >> > Range("E16").Select
> >> >> > ' Get Client / Summary Menu CMA Picture
> >> >> >
> >> >> > ActiveSheet.Pictures.Insert("C:\CRISNET\EXPORT\CMA_Picture_Group\CMA_Picture.jpg").Select
> >> >> >
> >> >> > In 2007 it places the picture in B4 consistently even if I use a
> >> >> > range
> >> >> > command for another location
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>
Similar Threads
