18/03/2008, 15:24
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Lima, Peru
Mensajes: 708
Antigüedad: 18 años, 6 meses Puntos: 18 | |
| Re: Insertar un Image Control en una hoja de calculo
Un ejemplo:
Sub XXX ()
Dim nombre As String
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image .1", Link:=False, _
DisplayAsIcon:=False, Left:=115.5, Top:=115.5, Width:=90, Height:=63) _
.Select
nombre = Selection.Name
With ActiveSheet.OLEObjects(nombre).Object
.Picture = LoadPicture("c:/IMG_1916.jpg")
End With
End Sub
Abraham |