Macro limitar por su tamaño la selección de un archivo
Tengo una macro para insertar una imagen (logo) en una hoja de excel, pero quiero agregarle que antes de insertar la imagen, valide su peso y si este es mayor a 10.000 bytes me salga un mensaje diciendo que el archivo es muy pesado y salir de la macro. La macro que tengo para insertar la imagen es la siguiente:
Sub insertarlogo()
Dim ruta As String
ruta = Application.GetOpenFilename
On Error Resume Next
For Each imagen In Worksheets("DOCUMENTOS").Shapes
Select Case imagen.Name
Case "Auto"
Case Else
imagen.Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture ruta
.TextureTile = msoFalse
End With
End Select
Next
End Sub
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro, es un ejemplo de como validar el tamaño de un archivo
Sub validar_tamaño()
Set propiedades = CreateObject("scripting.filesystemobject")
Set fichero = propiedades.getfile("c:\bibliotecas\fotos\paisajes\lago.jpg")
peso = fichero.Size
If peso > 10000 Then MsgBox ("el archivo pesa mas de 10,000, su peso" _
& "es de " & Format(peso, "#,0") & " kb")
set propiedades=nothing
End Sub
