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