Word (VBA)

Word VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Word 2013)
TextBox 2個をグループ化した時のGroupItemns(i)のLeftについて
投稿日時: 17/03/03 20:26:21
投稿者: さむさむ

2個のテキストボックスをグループ化し、g.GroupItems(2)の位置をマクロで
移動させたいと思っています。(インデックスラベルの自動マクロを作っています)
 
g.GroupItems(1)とg.GroupItems(2)の間をg.GroupItems(2).Left 行う時
g.GroupItems(2).Left = g.GroupItems(1).Left +g.GroupItems(1).Width + i
(i は移動させたいpoint)
では、上手く移動できないようです。
グループ化したときのそれぞれの位置はどのように取ればいいでしょうか。
ご教示願います
今のコードは下記です。
sub GiMove(i)
For Each g In ActiveDocument.Shapes
If g.Type = 6 Then
  g.GroupItems(2).Left = g.GroupItems(1).Left ++g.GroupItems(1).Width + i
End If
Next g
end sub

投稿日時: 17/03/05 16:50:24
投稿者: さむさむ

.IncrementLeftで解決しました。