| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
ActiveSheet.Pictures.Insert problem in excel 2007
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
Try this:
Sub InsertAndMovePicture(sPicturePathAndFilename As String, sCellAddress As String) With ActiveSheet.Pictures.Insert(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
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(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
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" wrote in message ... 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(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
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" wrote in message ... 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(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
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" wrote in message ... 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" wrote in message ... 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(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
ActiveSheet.Pictures.Insert problem in excel 2007
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" wrote in message ... 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" wrote in message ... 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(sPicturePathAndFilenam e) .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" wrote in message ... 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Pictures.Insert not working correctly in excel 2008. | Excel Programming | |||
| problem inserting pictures in excel 2007 using macro. | Excel Programming | |||
| ActiveSheet.Pictures.Insert | Excel Programming | |||
| How do I insert pictures in excel with the correct aspect ratio? | Excel Discussion (Misc queries) | |||
| Activesheet.Pictures.Insert | Excel Programming | |||
Linear Mode
