Rename image after inserting

[Av8tordude]

I'm using this code to insert an image to my sheet from my local drive. However, I can't seem to rename the image. The third line is suppose to rename the image, but after the image is inserted, its not selected. Therefore the image is not being renamed. Can someone help.. Thank you

Sub Macro1()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Select
ActiveSheet.Pictures.Insert ActiveCell.Comment.Text
Selection.Name = ActiveCell.Value
End Sub

 

[Av8tordude]

Found my answer...

ActiveSheet.Pictures(ActiveSheet.Pictures.Count).Name

 

[Av8tordude]

I know I can resize the image using the PictureSizeMode, but the image quality is diminished. How can i resize the picture without diminishing the image quality?
I have a code that exports a chart to the computer and then loads the chart to a userform, but having a difficult time adapting it to an image.

Dim MyChart As Chart
Dim FName As String

Set Wks = ActiveSheet

Set MyChart = Wks.Shapes("chGrade").Chart
FName = VBA.Environ("TEMP") & Application.PathSeparator & "MyChart.jpg"
MyChart.Export FName
Image1.Picture = LoadPicture(FName)
Kill FName

 

[Av8tordude]

anyone?