INSERIR IMAGEM NO EXCEL NO VB.NET

JCM0867 27/02/2023 15:27:54
#501065

Olá pessoal,
Pretendo abrir o excel e colocar ima imagem e depois dimencionar usando VB.NET
Ja fiz sso inúmeras vezes mas nunca coloquei imagens

No inicio coloquei:
Dim AppExcel As Object
Dim WBook As Object
Dim WSheet As Object

AppExcel = CreateObject("Excel.Application")
WBook = AppExcel.Workbooks.Open("C:\PTAM-Cjsystem\Imagens\Temp_Excel 123.xlsx", , True)
WSheet = WBook.ActiveSheet

agora Coloquei:
Dim Caminhoimagem as string = "C:\PTAM-Cjsystem\Imagens\Imagem1.jpg"
[txt-color=#e80000]WSheet.ActiveSheet.Pictures.Insert(caminhoImagem).Select[/txt-color]
WSheet.Selection.ShapeRange.Height = 600
...
No erro na linha em vermelho diz que "ActiveSheet" no tipo "Worksheet" não encontrado."

tentei tb dessa maneira e o erro é o mesmo só mudou de Lugar:
WSheet.Pictures.Insert("C:\PTAM-Cjsystem\Imagens\Imagem1.jpg").Select
[txt-color=#e80000]WSheet.Selection.ShapeRange.Height = 600[/txt-color]

Onde estou fazendo errado?

Grato