Microsoft Office Forums - View Single Post - [Solved] VBA Module for inserting images into Photo Album

macropod · 10-07-2022, 02:29 PM

Try adding:

Code:

Aspect as Boolean

to:

Code:

Dim i As Long, j As Long, c As Long, r As Long, NumCols As Long, iShp As InlineShape

inserting:

Code:

Aspect = RwHght > ColWdth

before:

Code:

On Error GoTo 0

and changing:

Code:

        With iShp
          .LockAspectRatio = True
          If (.Width < ColWdth) And (.Height < RwHght) Then
            .Width = ColWdth
            If .Height > RwHght Then .Height = RwHght
          End If
        End With

Code:

        With iShp
          .LockAspectRatio = True
          If (.Height > .Width) <> Aspect Then
            Set Shp = .ConvertToShape
            Shp.Rotation = 90
            Shp.ConvertToInlineShape
          End If
        End With
        Set iShp = oTbl.Cell(r, c).Range.InlineShapes(1)
        With iShp
          If (.Width < ColWdth) And (.Height < RwHght) Then
            .Width = ColWdth
            If .Height > RwHght Then .Height = RwHght
          End If
        End With