wordに画像を挿入するときに挿入位置を固定する方法

Question

wordで名刺的なものを作成しています。

画像の処理をマクロにしたいと思いましたが、wordでは画像をマクロの記録で編集はできないと知り、excelで作成したVBAをコピペして作成してみましたが、問題点がありました。
画像が毎回どの位置に挿入されるかわからないため、画像を移動させるマクロではずれが出てしまうことです。

実装したい処理は、wordに画像をコピー（ドラッグ&ドロップ、右ボタンからのコピーに関係なく）したときに、毎回、左上を基準として同じ位置に固定挿入される方法があれば教えていただきたいです。

VBAでも、オプションからの設定でも構いません。

欲を言えば、画像挿入時に画像のサイズ調整も自動化されると大変ありがたいです。

よろしくお願いします。

追記:excelのマクロの記録を使い、VBAを組みました。各数値は実際に動かしながら微調整していましたが、写真の初期値の違いが問題であったため、画像挿入時に固定できればと思っています。

sub 写真リサイズ()
    Selection.ShapeRange.IncrementRotation 90
    Selection.ShapeRange.ScaleWidth 1, msoFalse, msoScaleFromBottomRight
    Selection.ShapeRange.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
    For I = 1 to 100
      Selection.ShapeRange.IncrementTop -0.75
    Next I
    For I = 1 to 100
      Selection.ShapeRange.IncrementLeft -0.75
    Next i
End sub

Comments

[jinoji]

作ってみたコードを掲載しておくと、答える方のヒントにもなります。

[ajaj]

ご提案ありがとうございます。コードを追記しました。

Answer 1

こんな感じでどうでしょうか。

Sub sample()
    Dim s  As Shape
    If Selection.InlineShapes.Count > 0 Then
        Set s = Selection.InlineShapes(1).ConvertToShape
    ElseIf Selection.ShapeRange.Count > 0 Then
        Set s = Selection.ShapeRange(1)
    End If
    
    s.Left = 100
    s.Top = 109
    
End Sub

Comments

[ajaj]

回答いただきありがとうございます。

毎回同じ位置に移動しました！あとは値を調整して実装したいと思います！