Visual basic Excel Imagenes

Hoja.Cells(x,y).Select
Hoja.Pictures.Insert("C:\Logo.jpg")

Merci Juanjo me funciona bien, pero ahora lo que quiero es dimensionar las
imagens y ponerlas por ejemplo a 50 px de alto y de ancho
He mirado y me parece que se hace de la forma que te pondre a continuación,
pero me da error...

objHojaExcel.Cells(15, 15).Select()
objHojaExcel.Pictures.Insert("C:\Logo.jpg").select()
objHojaExcel.selection.ShapeRange.Width = 50
objHojaExcel.selection.ShapeRange.height = 50

"Juanjo" escribió:

Hoja.Cells(x,y).Select
Hoja.Pictures.Insert("C:\Logo.jpg")

Prueba de la siguiente manera

objHojaExcel.Shapes(1).Width = 50
objHojaExcel.Shapes(1).Height = 50

lo he probado y me daba error, entonces puse

objHojaExcel.Shapes().Width = 50
objHojaExcel.Shapes().Height = 50

podia ejecutar el programa pero no la redimensionaba la imagen y además me
saltaba un error...
alguna idea mas? de todas maneras muchas gracias


"Juanjo" escribió:

Prueba de la siguiente manera

objHojaExcel.Shapes(1).Width = 50
objHojaExcel.Shapes(1).Height = 50

Ya lo he solucionado... lo primero que puse ya funcionaba pero tenia un
pequeño error! Gracias

"Tabpages" escribió:

lo he probado y me daba error, entonces puse

objHojaExcel.Shapes().Width = 50
objHojaExcel.Shapes().Height = 50

podia ejecutar el programa pero no la redimensionaba la imagen y además me
saltaba un error...
alguna idea mas? de todas maneras muchas gracias


"Juanjo" escribió:

> Prueba de la siguiente manera
>
> objHojaExcel.Shapes(1).Width = 50
> objHojaExcel.Shapes(1).Height = 50
>
>
>
>