Pictures.insert excel 2010

[sgremmo]

With Excel 2010 the code below probably create a "link" because after renaming original picture and reopening excel file picture don't compare.

ActiveSheet.Pictures.Insert(filename).Select

How can I import image permanently into xlsx file?

Thank you.

 

[Scossa]

With Excel 2010 the code below probably create a "link" because after renaming original picture and reopening excel file picture don't compare.

ActiveSheet.Pictures.Insert(filename).Select

How can I import image permanently into xlsx file?

Hi sgremmo,

waiting for a better response, this is my dirty solution (but it works):
(P.S.: I apologize for my bad english)

Sub InsImmagine() 
     
  Dim sh As Worksheet 
  Dim rng As Range 
  Dim oPic As Object 
  Dim **** As String 
   
  Set sh = ActiveSheet 
  Set rng = Selection 
   
  **** = "D:\Immagini\pippo.gif" ' da cambiare 
   
  Set oPic = sh.Pictures.Insert(****) 
   
  sh.Shapes.AddPicture ****, msoFalse, msoTrue, _ 
    rng.Left, rng.Top, oPic.Width, oPic.Height 
   
  oPic.Delete 
   
  Set oPic = Nothing 
  Set rng = Nothing 
  Set sh = Nothing 
 
End Sub

Bye!
Scossa

 

[VoG]

Another example

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\example\pic.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Height = Range("C3").RowHeight
    .Width = Range("C3").Width
End With
End Sub

 

[Scossa]

Another example

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\example\pic.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = False
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Height = Range("C3").RowHeight
    .Width = Range("C3").Width
End With
End Sub

Yes, simpler and better, but I modify it so, to maintain the aspect-ratio:

Sub piccy()
ActiveSheet.Pictures.Insert ("C:\example\pic.jpg")
With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
    .LockAspectRatio = True 'maintain aspect-ratio
    .Top = Range("C3").Top
    .Left = Range("C3").Left
    .Width = Range("C3").Width 'same width of C3
End With
End Sub

Bye!
Scossa

 

[Scossa]

Yes, simpler and better, but I modify it so, to maintain the aspect-ratio:

Hi Vog,
Yes, this is the normal way in Excel 2003 (and in 2007), but I can't try if your solution works in Excel 2010 (OP's Excel version) then waiting for sgremmo's response.

Bye!
Scossa

 

[VoG]

Hi. Yes it works in Excel 2010.