ワードVBAを書いています。
お客さんのワード文書にShapeが貼り付いていて、その位置情報を、ページの境界線からの距離(ポイント)で取得したいと思っています。
shape.RelativeHorizontalPositionは、wdRelativeHorizontalPositionColumn となっていました。
これはどういう意味なんでしょうか?
色々調べたのですが、なかなかいい情報が見つかりません。
shape.Left/Topを、何の座標と足せば、見た目の座標になるのでしょうか?
詳しい方がおられたら教えてください。
No.2ベストアンサー
- 回答日時:
#1 です。
失礼しました。
Top および Left はアンカーからの位置っぽいですね。
なのでアンカーがページ端からどのぐらいの位置にあるのかを加えなければなりません。
Dim leftPos As Single
Dim topPos As Single
leftPos = myShape.Anchor.Information(wdHorizontalPositionRelativeToPage) + myShape.Left
topPos = myShape.Anchor.Information(wdVerticalPositionRelativeToPage) + myShape.Top
これで出せると思います。
Google 様に word shape absolute position vba で聞いてみました。
ありがとうございます!
教えていただいたキーワードで見つかったMSのサポートページに詳しく(?)でていました。
そのコードをそのまま実行すると、ものによっては元の位置から少しずれてしまうのですが…
ほかに方法は無さそうですね。
これで行こうと思います。
ありがとうございました。
No.1
- 回答日時:
Top と Left じゃないですか?
Dim myShape As Shape
Set myShape = ActiveDocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 30, 30)
myShape.Top = 100
myShape.Left = 100
Top、Left、AddShape をヘルプで見てみてください。
この回答への補足
回答ありがとうございます。
画面上で見るとページの真ん中へんにあるのに、Topが1pt未満だったりLeftがマイナス値だったりするので悩んでいます。
ヘルプを見ると、
> 図形の位置は、図形の境界ボックスの左上隅から図形のアンカーまでを測定します。
とあるので、アンカー位置を
shp.Anchor.Information(wdHorizontalPositionRelativeToPage)
で取って、Leftを足したら良いかと思いましたが、やはり見た目の位置とは明らかに違うようです。
shape.RelativeHorizontalPosition を変更すると、取得できるTopやLeftの値が変わるので、関係あるかと思ったのですが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBA Shapesの座標からセル位置取得について教えてください 1 2022/08/26 10:57
- Word(ワード) ワードの背面や前面 5 2023/01/28 11:50
- JavaScript オブジェクト配列の各メンバを任意の式で評価して、その評価値が最大のオブジェクトを返す関数はありますか 2 2023/05/20 15:02
- Android Androidスマホの遠隔起動について、教えてください。 2 2022/08/25 17:28
- 物理学 角運動量の式変形が分かりません。 4 2022/08/03 21:04
- Google Maps オフラインでもGPS使えるとネットに書いてありましたが、 圏外の状態で、Google Mapで位置情 3 2022/04/20 17:52
- C言語・C++・C# ディスプレイの解像度とマウスの位置について 2 2023/05/21 19:01
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
選択範囲の座標値の抽出
Word(ワード)
-
【ワード】マクロで画像を選択する
Word(ワード)
-
-
4
Word 図形の位置
Visual Basic(VBA)
-
5
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
6
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
7
【Word2007】Shapeの中のInlineShapeの情報を取得したい
Word(ワード)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
12
WORD VBA オートシェイプにマクロを登録したい
Word(ワード)
-
13
ワードマクロで画像を選択する方法
Word(ワード)
-
14
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
15
ダイアログの上のテキストボックスの、初期値を設定する方法が分かりません・・・・
C言語・C++・C#
-
16
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
17
VBAでテキスト出力時のスペースについて
Visual Basic(VBA)
-
18
Wordのマクロでクリップボードの内容を取得する方法
Visual Basic(VBA)
-
19
ワードからエクセルへ貼り付けるマクロ
Excel(エクセル)
-
20
Word VBA 表中の空白行を削除する方法
Word(ワード)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
マインクラフト(pc版)で座標...
-
3次元空間上の2つの座標から...
-
VBで、開いているExcelシートの...
-
最小二乗平面
-
交差する2線分の交点座標の求め方
-
エクセルで回転する座標の出し方
-
ClientToScreen
-
Tiny Basicでのグラフィック。。
-
ダイアログ内コントロールの位...
-
回転する四角や円で当たり判定...
-
Fortranで直交座標から極座標変...
-
エクセルの座標表示について
-
VB.net フォームをなめらかに移...
-
座標を結んだ線分の交差
-
ワード上Shapeの位置情報を統一...
-
VBA 図形○を入れる座標の取り方
-
ExcelVBA上で特定の座標への画...
-
c言語でキーボードから2点の座...
-
差分法による数値解析でヤコビ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マインクラフト(pc版)で座標...
-
グラフの交点の求め方(Excel)
-
エクセルで回転する座標の出し方
-
閉図形の座標の配列が右回りか...
-
3次元空間上の2つの座標から...
-
エクセルである点からの距離で...
-
求積表の計算方法
-
ダイアログ内コントロールの位...
-
空間上の二点を結ぶ直線上に任...
-
始点、終点の二つの座標と半径...
-
図形が重なりあっているかどうか
-
ワード上Shapeの位置情報を統一...
-
以下のプログラムは重心を求め...
-
シーケンサー(PLC?)で制...
-
ピクチャボックスの座標取得
-
多角形の内部かどうか判定する方法
-
Excel VBA で自在に図形を変化...
-
選択範囲の座標値の抽出
-
座標を持った平面範囲に座標を...
-
VBで、開いているExcelシートの...
おすすめ情報