italianzjz
New Member
- Joined
- May 7, 2011
- Messages
- 1
Here is the coding for a Macro I made to insert a picture and resize it:
Sub GetPic()
'
' Resize Macro
' Macro recorded 10/14/2010 by Zachary Zito
'
Dim myPicture As String
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
'If myPicture = Null Then
'MsgBox ("You did not make a selection.")
'Else
ActiveSheet.Pictures.Insert(myPicture).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 159
Selection.ShapeRange.Width = 270
End Sub
---
This coding worked fine in the previous versions of Excel, but in 2010 it will not save the inserted picture into the actual file- it just saves it as a reference to the picture file- so if I delete the picture, it no longer appears in the excel file. How can I fix this so the file can become embedded?
Sub GetPic()
'
' Resize Macro
' Macro recorded 10/14/2010 by Zachary Zito
'
Dim myPicture As String
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select Picture to Import")
'If myPicture = Null Then
'MsgBox ("You did not make a selection.")
'Else
ActiveSheet.Pictures.Insert(myPicture).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 159
Selection.ShapeRange.Width = 270
End Sub
---
This coding worked fine in the previous versions of Excel, but in 2010 it will not save the inserted picture into the actual file- it just saves it as a reference to the picture file- so if I delete the picture, it no longer appears in the excel file. How can I fix this so the file can become embedded?
