Insertar

03/12/2008 - 08:51 por Manuel | Informe spam
Tengo un file de imagen que inserto si existe una condición dada.

Necesito saber como al entrar de nuevo al archivo, si esta condición
ha cambiado, me muestre la nueva imagen.

Siempre que entro me deja la vieja, es decir me inserta una nueva,
pero no borra la vieja.

Aquí va la macro:

Sub Imagen()
'
' Imagen Macro
' Macro recorded 30/11/2008 by Manuel
'
'
If ActiveSheet.Range("K12").Value >= 50 Then
Range("I17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Manuel\Mis documentos\Mis imágenes
\Image002.jpg"). _
Select
ActiveWindow.SmallScroll Down:=4
ActiveWindow.SmallScroll ToRight:=1
Selection.ShapeRange.ScaleWidth 0.29, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.29, msoFalse,
msoScaleFromTopLeft
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("H23").Select
Else
Range("I17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Manuel\Mis documentos\Mis imágenes
\Image003.jpg"). _
Select
ActiveWindow.SmallScroll Down:=4
ActiveWindow.SmallScroll ToRight:=1
Selection.ShapeRange.ScaleWidth 0.29, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.29, msoFalse,
msoScaleFromTopLeft
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("H23").Select
End If
End Sub


Saludos,
Manuel
 

Leer las respuestas

#1 Héctor Miguel
03/12/2008 - 10:27 | Informe spam
hola, Manuel !

Tengo un file de imagen que inserto si existe una condicion dada.
Necesito saber como al entrar de nuevo al archivo, si esta condicion ha cambiado, me muestre la nueva imagen.
Siempre que entro me deja la vieja, es decir me inserta una nueva, pero no borra la vieja...



1) la macro que expones NO es de ejecucion automatica (debes llamarla para que se ejecute), ademas...
en ningun lado de la macro tienes instrucciones para que la imagen "anterior" sea eliminada -?-

2) para reducir (en lo posible) el tamano y peso del archivo, asi como "ajustar" las dimensiones de las imagenes...
te sugeriria usar objetos picture incrustados en la hoja

3) por lo tocante al manejo de imagenes incrustadas en hojas de calculo, revisa las siguientes conversaciones:
http://tinyurl.com/26xbql
http://tinyurl.com/lo7zo
http://tinyurl.com/ytkk2x

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares