afbeelding aanpassen aan cel

[Joske2000]

Hi,

Ik heb deze code gevonden op de site van Luc Heyndrickx.
Doet perfect wat ie moet doen, alleen volgende vraag :
Kan ik de afbeeldingen automatisch aanpassen aan max breedte van bv 4cm, en kan deze afbeelding gecentreerd worden binnen deze cel ?

Thanks,

Joske

Sub InsertPictureColumn10()
Dim i As Integer
i = 1
Do Until Cells(i, 8).Value = ""
With ActiveSheet.Pictures.Insert( _
    ThisWorkbook.Path & "\" & Cells(i, 8).Value)
    .Top = Cells(i, 2).Top
    .Left = Cells(i, 10).Left
    .Width = (.Width / .Height) * Cells(i, 8).Height
    .Height = Cells(i, 8).Height
End With
i = i + 1
Loop
End Sub

 

[Wigi]

Kan ik de afbeeldingen automatisch aanpassen aan max breedte van bv 4cm

Joske

Maak eens gebruik van de InchesToPoints methode. Zet eerst cm om in inch, daarna in punten dus.

 

[Wigi]

Het centreren zou ik zo direct niet weten. Vraag misschien eens aan Luc H zelf?