Insertar un Image Control en una hoja de calculo

[francolaca]

Como hago para insertar un Image Control en una hoja de calculo (excel) por medio de codigo (macro)???

Con la grabadora de macros obtube el siguiente codigo:

Sub InsertarImageControl()

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image .1", Left:=360, Top:=78.75, Width:=72, Height:=72).Select

End Sub

Pero como hago para modificar las propiedades de este control desde el mismo procedimiento????

Como hago para insertarle una imagen que tengo guardada en esta direccion:

C:\Documents and Settings\Administrador\Escritorio\Diamonds\A

Saludos y gracias por su ayuda

[abrahamvj]

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

[francolaca]

Gracias abraham otra vez. Te comento que estoy aprendiendo VBA porque soy ingeniero quimico y solo manejo matlab aunque nada de interfaz grafica de usuario. Asique decidi arrancar con VBA ya que me dijeron que es el mas facil de aprender. La idea es dominarlo bien para las aplicaciones excel y acces y luego pasar directamente al VB para hacer mis propias aplicaciones. Este es el primer proyevto que hago, nada que ver con mi trabajo sino con mi pasatiempos preferido, el Poker jaja.
Estoy haciendo una macro en excel que me ayude a aplicar una estrategia de juego llamada Short Stack Strategy y asi poder jugar mas rapidamente en varias mesas. Tu ayuda realmente me es muy util y te estoy muy agradecido espero sigas aportando , al menos hasta que adquiera mas experiencia ya que me he dado cuenta que tengo MUCHISIMO por aprender jaja. Mil gracias

[abrahamvj]

Pues de nada, para eso estamos en los foros, no es cierto?

Pues, solo confirmar que si, VBA no es dificil, y realmente te servira mucho para despues pasar a VB. yo programo en VB 6.0, asi, que, cuando quieras.

Ah, el secreto a voces, por supuesto que es leer, leer y practicar

Abraham