word VBA カーソルの移動について

Question

前提

ここに質問の内容を詳しく書いてください。
（例）wordでマクロを作成しています。
線を挿入し、挿入した線にカーソル位置を合わせたいです。

実現したいこと

・線を挿入後、線をアクティブにし、カーソルで選択した状態にしたい
ここに実現したいことを箇条書きで書いてください。

• ▲▲機能を動作するようにする

発生している問題・エラーメッセージ

カーソルをうまく移動させることができない

### 該当のソースコード
'
Dim shpLine As Shape

Set shpLine = ActiveDocument.Shapes.AddLine(beginx:=50, beginy:=20, endx:=85, endy:=20)

With shpLine
    .Line.ForeColor.RGB = RGB(255, 0, 0) '赤線
    .Line.Weight = 1
End With
```ここに言語名を入力
WORD　VBA
ソースコード

試したこと

余白が外にAddlineし、選択状態にしたいが、良い方法が思いつかない
ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
大変お手数をおかけしますが、ご教示お願いします。
そもそもWORDでは余白部分にカーソルの移動ができないのでしょうか。

Answer 1

Select メソッドで選択できます。

Shape.Select メソッド (Word) | Microsoft Learn

    Dim shpLine As Shape

    Set shpLine = ActiveDocument.Shapes.AddLine(beginx:=50, beginy:=20, endx:=85, endy:=20)

    With shpLine
        .Line.ForeColor.RGB = RGB(255, 0, 0)     '赤線
        .Line.Weight = 1
        .Select
    End With

Comments

[hiyoko0410]

ご回答ありがとうございます。
図形を選択することができました。

できれば図形の上にポインターが来るように
設定したいのですが、wordのマクロでは不可能でしょうか。

[hatena19]

できないことはないですが、かなり難易度は高いですよ。
WindowsAPIを使うことになります。
「VBA マウスカーソル 移動」で検索すればいろいろ解説ページが見つかりますので、どうしても必要ならば、チャレンジしてみてください。そのうえで、行き詰ったら新たに質問をたててはどうでしょうか。

[hiyoko0410]

windowsAPIというものがあるのですね。調べてみます。
ヒントをいただけるだけ助かります。ありがとうございました！