Olá pessoal!

Sou novo aqui então desde já agradeço quem teve tempo pelo menos de ler, dito isto, não estou conseguindo abrir imagem seja a mesma JPEG ou BMP no excel 2016. O projeto fora desenvolvido no excel 2007.

segue código.

Sub COLOCAR_LOGO()
Sheets("GRAFICOIMAGE").Select
Dim f, s
Set f = Sheets("GRAFICOIMAGE")
  'For Each s In f.Shapes
    'AddItem s.Name
  'Next
  Dim TEMPOIMAGEM

Sheets("GRAFICOIMAGE").Select
TEMPOIMAGEM = "LOGO"
ActiveSheet.Shapes.Range(Array(TEMPOIMAGEM)).Select
  Set s = f.Shapes
  
  Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  f.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart.Paste
  f.ChartObjects(1).Chart.Export FileName:="monimage.jpg"
  f.Shapes(f.Shapes.Count).Delete
  If Frame6.Visible = True Then
  Me.Image2.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image2.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
  End If
  If Frame1.Visible = True Then
  Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
  Me.Image1.Picture = LoadPicture("monimage.jpg")
  Kill "monimage.jpg"
  End If
  

End Sub