Tamaño de la foto

17/11/2007 - 14:41 por Jose | Informe spam

Hola a todos:
Estoy intentando modificar el tamaño de unos planos reduciendolos al 18%
(alto)y 21% (ancho)respectivamente una vez han sido incrustados en una hoja.
El caso es que he grabado una macro pero el resultado es que siempre varía
el Shape ¿cómo puedo hacer que el número de Picture xxxx sea igual a la
foto que acabo de insertar (cada vez es un número distinto de Picture).
He aquí la macro grabada:

Sub disminuirfoto()
' disminuirfoto Macro
' Macro grabada el 17/11/2007 por jrfl
Option Explicit
'Dim plano As Shape es correcto ?????????????
ActiveSheet.Select
'Application.Run _
"'Fichas de pisos del edificio Germans.xls'!Macrofotos2"
ActiveSheet.Shapes("Picture 1897").Select
'plano = ActiveSheet.Shapes("Picture ????").Select es correcto
?????????????
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 364.5
Selection.ShapeRange.Width = 255.75

End Sub

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ivan

17/11/2007 - 18:03 | Informe spam

hola Jose

Estoy intentando modificar el tamaño de unos planos reduciendolos al 18%
(alto)y 21% (ancho)respectivamente una vez han sido incrustados en una hoja.
El caso es que he grabado una macro pero el resultado es que siempre varía
el Shape ¿cómo puedo hacer que el número de Picture xxxx sea igual a la
foto que acabo de insertar (cada vez es un número distinto de Picture).
He aquí la macro grabada:

el incrustar imagenes/objetos en un libro/hoja tiene su miga

te pego un fragmento de una de las respuestas que me dio Hector Miguel
en su momento sobre el tema y despues te pongo el vinculo a la
conversacion donde esta inculido ( como mis mensajes suelen ser un
'tomo', si te las quieres saltar hazlo, pero no dejes pasar las
respuestas de Hector, al menos desde la 2ª, y si quieres echa un ojo a
la 7ª mia, en ella cuento lo que me pasaba con la numeracion de los
shapes)

'ffragmento respuesta Hector Miguel
-

2) mi 'sugerencia' de agregar las imagenes [vinculadas] una sola vez
[por codigo] y 'dejarlas' ahi [proveyendo las imagenes]...
se debe a que al insertarlas vinculadas... no conoces con
anticipacion las dimensiones 'reales' de la imagen a insertar -?-
y como la instruccion -> Shapes.AddPicture REQUIERE que indiques
la posicion y las dimensiones... [seguramente]
estaras 'adivinando/suponiendo/... su 'relacion de aspecto' y no
te sera posible 'rescatar' sus dimensiones 'reales' -> al 100%
[a menos que las conozcas previamente, o las 'averigues' antes de
insertarla, -quizas por medio de API's-] -?-

.

conversacion que toca el tema (el fragmento corresponde al mensaje nº
5 y a partir de aqui en las demas respuestas de Hector si no me
equivoco se va haciendo mencion al tema)

http://tinyurl.com/3xta4b

en esta otra conversacion el propio Hector proporciona unos codigos
que son una maravilla para comprender la manipulacion de imagenes/
formas en excel (en el mensaje nº 7 )

http://tinyurl.com/39zkcr

espero te ayuden, y si no van por ahi los tiros, espero que el propio
Hector, u otro experto del foro te echen un cable (yo no acabo de
tenerlo claro, al menos no lo suficiente como para atreverme a ayudar
a un tercero)

un saludo
Ivan

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida