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

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

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

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

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

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

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