イメージの縮小サイズの取得

Option Explicit

Public Function ImgSizeChenge( _
    ByRef MyHeight as Long,ByRef MyWidth as Long, _
    ByVal BaseHeight as Long,ByVal BaseWidth as Long)

Dim intTmp As Long
Dim intTmp2 As Long
    
    'イメージのサイズを設定する
        '縦のサイズを調整する
        If MyHeight > BaseHeight Then
            intTmp = MyHeight - BaseHeight
            intTmp2 = MyHeight
            MyHeight = MyHeight - intTmp
            MyWidth = MyWidth - (MyWidth * (intTmp / intTmp2))
        End If
        If MyWidth > BaseWidth Then
            intTmp = MyWidth - BaseWidth
            intTmp2 = MyWidth
            MyWidth = MyWidth - intTmp
            MyHeight = MyHeight - (MyHeight * (intTmp / intTmp2))
        End If

End Function

• 第一引数、第二引数
  
  縮小表示したいイメージのサイズを指定します。
  
  
• 第三引数、第四引数
  
  イメージを表示する大きさを指定します。
  ここで指定した大きさに収まるサイズにイメージのサイズが縮小されます。