質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.31%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

Q&A

解決済

1回答

516閲覧

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

hiyoko0410

総合スコア5

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Word

Microsoft WordはMicrosoftが開発した業務用の文書生成用のソフトウェアです。

0グッド

0クリップ

投稿2022/09/22 13:06

前提

ここに質問の内容を詳しく書いてください。
(例)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では余白部分にカーソルの移動ができないのでしょうか。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

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

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

vba

1 Dim shpLine As Shape 2 3 Set shpLine = ActiveDocument.Shapes.AddLine(beginx:=50, beginy:=20, endx:=85, endy:=20) 4 5 With shpLine 6 .Line.ForeColor.RGB = RGB(255, 0, 0) '赤線 7 .Line.Weight = 1 8 .Select 9 End With

投稿2022/09/22 13:48

hatena19

総合スコア34362

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

hiyoko0410

2022/09/23 12:21

ご回答ありがとうございます。 図形を選択することができました。 できれば図形の上にポインターが来るように 設定したいのですが、wordのマクロでは不可能でしょうか。
hatena19

2022/09/23 12:37

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

2022/09/23 12:47

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.31%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問