tamaño imagenes

Hola fredy

esto es todo lo que puedo decirte, solo lo he usado en Access pero no creo
que haya problemas para usarlo en excel

'*******************************************************************************
'* Dimensiones
'* obtiene las dimensiones de una imagen
'* solo para GIF,JPG,ICO,BMP,RLE,WMF
'* Argumentos: strRutaImagen => Ruta completa de la imágen (pasado)
'* lngAncho => Ancho en pixels (devuelto)
'* lngAlto => Alto en pixels (devuelto)
'* uso: Dimensiones strRutaImagen, lngAncho, lngAlto
'* ESH 05/09/04 13:01
'*******************************************************************************

Public Sub Dimensiones(strRutaImagen As String, lngAncho As Long, lngAlto As
Long)

Dim fso As Object, _
Picture As Object, _
strExtension As String

' obtengo la extensión de la imagen
On Error GoTo Dimensiones_TratamientoErrores

Set fso = CreateObject("Scripting.FileSystemObject")
strExtension = fso.GetExtensionName(strRutaImagen)
Set fso = Nothing

' si se trata de una extensión soportada cargo la imagen y obtengo sus
dimensiones
Select Case strExtension
Case "GIF", "JPG", "JPEG", "ICO", "BMP", "RLE", "WMF"
Set Picture = LoadPicture(strRutaImagen)
lngAncho = Round(Picture.Width / 26.458)
lngAlto = Round(Picture.Height / 26.458)
Case Else
MsgBox "Formato " & Chr(34) & strExtension & Chr(34) & " no
soportado"
lngAncho = 0
lngAlto = 0
End Select ' strExtension


Set Picture = Nothing

Dimensiones_Salir:
On Error GoTo 0
Exit Sub

Dimensiones_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc. Dimensiones de Módulo
mdlDimensionesImagen (" & Err.Description & ")", vbOKOnly + vbCritical
GoTo Dimensiones_Salir
End Sub ' Dimensiones


Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"fredy" escribió en el mensaje
news:48c601c4a70b$26d971c0$

hola
alguien sabe como puedo obtener los valores de alto y
ancho de una imagen que estoy insertando para colocar un
condional y saber si es necesario rotarla o no, esto lo
tengo que hacer para una secuencia de 382 imagenes todas
las debo colocar con la dimension mayor en el plano
horizontal

muchas gracias
fredy

gracias Emilio, ya copìe el codigo... el problema es que
no he encontrado como usarlo, me colaboras por favor
saludos
fredy

Hola fredy

esto es todo lo que puedo decirte, solo lo he usado en

Access pero no creo

que haya problemas para usarlo en excel

'********************************************************

***********************

'* Dimensiones
'* obtiene las dimensiones de una imagen
'* solo para GIF,JPG,ICO,BMP,RLE,WMF
'* Argumentos: strRutaImagen => Ruta completa de la

imágen (pasado)

'* lngAncho => Ancho en pixels

(devuelto)

'* lngAlto => Alto en pixels (devuelto)
'* uso: Dimensiones strRutaImagen, lngAncho, lngAlto
'* ESH 05/09/04 13:01
'********************************************************

***********************

Public Sub Dimensiones(strRutaImagen As String, lngAncho

As Long, lngAlto As

Long)

Dim fso As Object, _
Picture As Object, _
strExtension As String

' obtengo la extensión de la imagen
On Error GoTo Dimensiones_TratamientoErrores

Set fso = CreateObject("Scripting.FileSystemObject")
strExtension = fso.GetExtensionName(strRutaImagen)
Set fso = Nothing

' si se trata de una extensión soportada cargo la imagen

y obtengo sus

dimensiones
Select Case strExtension
Case "GIF", "JPG", "JPEG", "ICO", "BMP", "RLE", "WMF"
Set Picture = LoadPicture(strRutaImagen)
lngAncho = Round(Picture.Width / 26.458)
lngAlto = Round(Picture.Height / 26.458)
Case Else
MsgBox "Formato " & Chr(34) & strExtension & Chr

(34) & " no

soportado"
lngAncho = 0
lngAlto = 0
End Select ' strExtension


Set Picture = Nothing

Dimensiones_Salir:
On Error GoTo 0
Exit Sub

Dimensiones_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc.

Dimensiones de Módulo

mdlDimensionesImagen (" & Err.Description & ")",

vbOKOnly + vbCritical

GoTo Dimensiones_Salir
End Sub ' Dimensiones


Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"fredy" escribió

en el mensaje

news:48c601c4a70b$26d971c0$

hola
alguien sabe como puedo obtener los valores de alto y
ancho de una imagen que estoy insertando para colocar

un

condional y saber si es necesario rotarla o no, esto lo
tengo que hacer para una secuencia de 382 imagenes

todas

las debo colocar con la dimension mayor en el plano
horizontal

muchas gracias
fredy

.

si te fijas en el encabezado de la función -Hay que leerselo todo- ;-) pone
uso: Dimensiones strRutaImagen, lngAncho, lngAlto
pues eso que le tienes que pasar la ruta de la imagen y dos variables long,
en las que te devolverá las dimensiones de la imagen

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

escribió en el mensaje
news:002001c4a711$0be89110$
gracias Emilio, ya copìe el codigo... el problema es que
no he encontrado como usarlo, me colaboras por favor
saludos
fredy

Hola fredy

esto es todo lo que puedo decirte, solo lo he usado en

Access pero no creo

que haya problemas para usarlo en excel

'********************************************************

***********************

'* Dimensiones
'* obtiene las dimensiones de una imagen
'* solo para GIF,JPG,ICO,BMP,RLE,WMF
'* Argumentos: strRutaImagen => Ruta completa de la

imágen (pasado)

'* lngAncho => Ancho en pixels

(devuelto)

'* lngAlto => Alto en pixels (devuelto)
'* uso: Dimensiones strRutaImagen, lngAncho, lngAlto
'* ESH 05/09/04 13:01
'********************************************************

***********************

Public Sub Dimensiones(strRutaImagen As String, lngAncho

As Long, lngAlto As

Long)

Dim fso As Object, _
Picture As Object, _
strExtension As String

' obtengo la extensión de la imagen
On Error GoTo Dimensiones_TratamientoErrores

Set fso = CreateObject("Scripting.FileSystemObject")
strExtension = fso.GetExtensionName(strRutaImagen)
Set fso = Nothing

' si se trata de una extensión soportada cargo la imagen

y obtengo sus

dimensiones
Select Case strExtension
Case "GIF", "JPG", "JPEG", "ICO", "BMP", "RLE", "WMF"
Set Picture = LoadPicture(strRutaImagen)
lngAncho = Round(Picture.Width / 26.458)
lngAlto = Round(Picture.Height / 26.458)
Case Else
MsgBox "Formato " & Chr(34) & strExtension & Chr

(34) & " no

soportado"
lngAncho = 0
lngAlto = 0
End Select ' strExtension


Set Picture = Nothing

Dimensiones_Salir:
On Error GoTo 0
Exit Sub

Dimensiones_TratamientoErrores:

MsgBox "Error " & Err.Number & " en proc.

Dimensiones de Módulo

mdlDimensionesImagen (" & Err.Description & ")",

vbOKOnly + vbCritical

GoTo Dimensiones_Salir
End Sub ' Dimensiones


Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...cid=fh;ES-

ES;newsreglas

"fredy" escribió

en el mensaje

news:48c601c4a70b$26d971c0$

hola
alguien sabe como puedo obtener los valores de alto y
ancho de una imagen que estoy insertando para colocar

un

condional y saber si es necesario rotarla o no, esto lo
tengo que hacer para una secuencia de 382 imagenes

todas

las debo colocar con la dimension mayor en el plano
horizontal

muchas gracias
fredy

.