objeto ole

hola, marcos !

como puedo ejecutar un objeto ole sin que me aparezca el cartel de advertencia de que es peligroso, etc.
y si no es posible, como puedo guardar el objecto ole como un archivo???

'ole' = Object Linking and Embedding [OLE]
[objetos vinculados e incrustados]

¿pudieras ser mas 'especifico' en cuanto a...
- ¿a que 'tipo' de objeto OLE te refieres? ['ActiveX', 'otra' aplicacion, ...]
- ¿como es que tratas de 'ejecutarlo'? =>para que te 'aparezca' la advertencia<- ¿en que 'tipo' [o formato] de archivo quisieras guardarlo?

saludos,
hector.

hola héctor, gracias por responder
es un objeto que inserto mediante insertar/objeto.

Es una imagen jpg. deseo mediante una macro guardar ese
archivo en el c:\

Lo trato de ejecutar con:
ActiveSheet.Shapes("obj1").Select
Selection.Verb Verb:=xlPrimary

La idea es ejecutarlo, pero como me tira el mensaje de
advertencia, lo guardaría en disco y luego con un sheel
abriría algún programa de visualización de imágenes y lo
mostraría.

gracias!

hola, marcos !

como puedo ejecutar un objeto ole sin que me aparezca

el cartel de advertencia de que es peligroso, etc.

y si no es posible, como puedo guardar el objecto ole

como un archivo???

'ole' = Object Linking and Embedding [OLE]
[objetos vinculados e incrustados]

¿pudieras ser mas 'especifico' en cuanto a...
- ¿a que 'tipo' de objeto OLE te refieres?

['ActiveX', 'otra' aplicacion, ...]

- ¿como es que tratas de 'ejecutarlo'? =>para que

te 'aparezca' la advertencia<>- ¿en que 'tipo' [o formato] de archivo quisieras
guardarlo?

saludos,
hector.


.

hola, marcos !

Es una imagen jpg. deseo mediante una macro guardar ese archivo en el c:\
Lo trato de ejecutar con:
ActiveSheet.Shapes("obj1").Select
Selection.Verb Verb:=xlPrimary
La idea es ejecutarlo, pero como me tira el mensaje de advertencia, lo guardaria en disco
y luego con un sheel abriria algún programa de visualizacion de imagenes y lo mostraria.

si lo unico que quieres es 'evitar' el mensaje de advertencia [y seguro de que el 'visualizador' NO es 'peligroso']
prueba 'des-habilitando' los mensajes de alerta antes de 'ejecutarlo y 're-habilitarlos' despues de...
[es muy importante 're-habilitarlos', ya que es uno de los parametros que la aplicacion NO 'auto-restablece'] <==]
[... ...]
Application.DisplayAlerts = False
ActiveSheet.Shapes("obj1").Select
Selection.Verb Verb:=xlPrimary
Application.DisplayAlerts = True
[... ...]

saludos,
hector.