Necesito insertar una imagen en una hoja de excel, buscando en la red encontré código en VBA pero no encuentro su equivalente, hasta ahora lo tengo asi:
También encontré esto para ajustar la imagen a un tamaño fijo pero no sé como aplicarlo en HMG :PROC ListaDePreciosXLS
PRIVATE oExcel
PRIVATE oWorkBook
PRIVATE oHoja
oExcel := CreateObject( "Excel.Application" ) // HMG 3
oExcel:Visible := .F.
oExcel:DisplayAlerts := .F.
oWorkBook := oExcel:WorkBooks:Add()
// Seleccion de hoja
nSheets := oExcel:Sheets:Count()
IF nSheets = 0
oExcel:Sheets:Add()
ELSE
oExcel:Sheets(1):Select()
ENDIF
oHoja := oExcel:ActiveSheet
oHoja:Cells:Font:Name := "Arial"
oHoja:Cells:Font:Size := 12
oHoja:Name := "Lista"
oHoja:Range("A1"):Select // <- AQUI ME LANZA ERROR AL COMPILAR : Error E0020 Incomplete statement or unbalanced delitmiters
oHoja:Pictures:Insert("imagen\logo-lista.jpg")
Agradeceré su ayuda con código ejemplo para manejo de imágenes en excel..ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100
.ShapeRange.Width = 100
Reciban un cordial saludo de mi parte.
Att.