Foto altijd even groot invoegen!!

[Jhon van der Bo]

Met onderstaande code kan ik via een commandbutton een foto invoegen in een Excel sheet. Maar de ingevoegde foto is niet altijd even groot (is afhankelijk van de instelling van de camera).
Kan ik door iets toe te voegen aan onderstaande code,
de ingevoegde afbeelding altijd even groot krijgen??

*************************************
Private Sub CommandButton1_Click()
ScreenUpdating = False
fileToOpen = Application _
.GetOpenFilename("Foto voor SAF JPEG-Afbeelding (*.jpg), *.jpg")
If fileToOpen <> False Then ActiveSheet.Pictures.Insert(fileToOpen).Select
End Sub
*************************************

 

[Ingrid B]

Met volgende code kan je de grootte bepalen, maar houd er wel rekening mee dat je op die manier een vervorming kunt krijgen doordat de hoogte/breedte-verhouding zo niet meer wordt gerespecteerd.

Selection.ShapeRange.Width = 300
Selection.ShapeRange.Height = 200

 

[Jhon van der Bo]

Ik heb de code toegevoegd en het werkt perfect.
Wat die vervorming betreft, dat is niet zo erg.

Ingrid, je bent wederom bedankt voor je reactie.