With imgFileGroeße
            .Stretch = False
            .Visible = False
            .Picture = LoadPicture(txtFilepath(Index).Text)
 
            ' Größenumrechnung in Pixel
            Dim nWidth As Long
            Dim nHeight As Long
 
            nWidth = ScaleX(.Width, vbTwips)
            nHeight = ScaleY(.Height, vbTwips)
 
            ' Bild wieder entfernen (Speicher freigeben)
            .Picture = LoadPicture()
 
            ' Größe in MsgBox anzeigen
            MsgBox "Dimension: " & nWidth & " x " & nHeight
 
            ' Prozentual Verkleinerung
            nProzent = (nWidth / 1215) / 100
 
            imgFile(Index).Width = 1215
            imgFile(Index).Height = nHeight * nProzent
 
            imgFile(Index).Picture = LoadPicture(txtFilepath(Index).Text)
        End With