Word VBAで写真のサイズを取得

めんどくさい作業を自動化するためにツール作成。

休み中にとりあえず調べたところをメモメモ

Const mill As Double = 0.3527
Dim i As InlineShape
Dim count As Integer

path = "C:\.."

For Each i In ActiveDocument.InlineShapes
 If i.Type = wdInlineShapePicture Then
    Debug.Print i.Height * mill
    Debug.Print i.Width * mill
    Debug.Print i.ScaleHeight
    Debug.Print i.ScaleWidth
    
    count = count + 1
 End If
Next
 

あとはレイアウト（行内とか上下とか、、、）を取得するのみ。

これで主要部分ができるはず！