VBA批量处理PPT中图片尺寸

遇到一个PPT里面有多张图片，想把图片处理成统一尺寸（即width和height一样），并且处于每张PPT上的同一位置（即left和top一样）。

Sub shapes_samesize()
    d = 28.3333  '单位换算。
    For Each sld In ActivePresentation.Slides
        For Each s In sld.Shapes            
            If s.Type = 13 Then   '13代表该形状是图片
                s.LockAspectRatio = msoFalse  '取消锁定纵横比            
                s.Width = d * 13  '图片宽度为13厘米
                s.Height = d * 16 '高度为16厘米
                s.Top = d * 1.5   '距左侧边缘1.5厘米
                s.Left = d * 3    '距顶部3厘米
            End If
        Next
    Next
End Sub

注：不清楚长度的单位是磅，还是什么。简单的找了一下规律，发现PPT所用的单位与厘米的之间的比例为28.3333。