Albatros
Gebruiker
- Lid geworden
- 4 nov 2001
- Berichten
- 386
Hoi,
Via onderstaande makro, gevonden op dit forum :thumb:, kan ik foto's invoegen en verkleinen. Echter de oorspronkelijke bestandsgrootte van bv 500 kB per foto blijft bestaan. Is het mogelijk om binnen excel, de foto-bestanden te verkleinen naar bv. 30 kB per foto?
Albatros
Via onderstaande makro, gevonden op dit forum :thumb:, kan ik foto's invoegen en verkleinen. Echter de oorspronkelijke bestandsgrootte van bv 500 kB per foto blijft bestaan. Is het mogelijk om binnen excel, de foto-bestanden te verkleinen naar bv. 30 kB per foto?
Code:
Sub Insert_Pict()
'Courtesy of Dave Hawley of Ozgrid.com
Dim Pict() As Variant
Dim ImgFileFormat As String
Dim lRow As Long, lLoop As Long
Dim lTop As Long
Dim sShape As Shape
ActiveSheet.Protect False, False, False, False, False
ImgFileFormat = "Image Files jpg (*.jpg),*.jpg,(*.bmp),others, tif (*.tif),*.tif"
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat, MultiSelect:=True)
'Note you can load in nearly any file format
If Not IsArray(Pict) Then
Debug.Print "No files selected."
Exit Sub
End If
lRow = 10
For lLoop = LBound(Pict) To UBound(Pict)
lTop = Cells(lRow, "F").Top
Set sShape = ActiveSheet.Shapes.AddPicture(Pict(lLoop), msoFalse, msoCTrue, Cells(1, 6).Left, lTop, 96, 75)
'expression.AddPicture(Filename, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
lRow = lRow + 1
Next lLoop
End Sub
Albatros