ワード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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
選択範囲の座標値の抽出
Word(ワード)
-
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
Word 図形の位置
Visual Basic(VBA)
-
-
4
【ワード】マクロで画像を選択する
Word(ワード)
-
5
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
6
エクセルVBAでOptionButtonのオンオフ取得
Excel(エクセル)
-
7
【Word2007】Shapeの中のInlineShapeの情報を取得したい
Word(ワード)
-
8
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
9
ワードマクロで画像を選択する方法
Word(ワード)
-
10
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
11
vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
-
12
WORD VBA オートシェイプにマクロを登録したい
Word(ワード)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
Excel VBAで、ユーザーフォームをモードレス表示している間、処理を止めるには?
Visual Basic(VBA)
-
15
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
16
Wordのテキストボックスの位置の基準と表の関係
その他(Microsoft Office)
-
17
OnTime 使用時のプロシージャへの引数の与え方、その記述方法を教えて下さい。
Visual Basic(VBA)
-
18
VBAでテキスト出力時のスペースについて
Visual Basic(VBA)
-
19
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
20
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
マインクラフト(pc版)で座標...
-
3次元空間上の2つの座標から...
-
多角形に長方形が入るかどうか...
-
vb2010でpictureboxにグラフを描く
-
Excel VBA で自在に図形を変化...
-
エクセルで回転する座標の出し方
-
C#でxy座標グラフを描きたい。
-
凸型の多角形の座標
-
C言語 配列で座標
-
精度の荒いOCR文書からのデータ...
-
直線上にある点の座標の求め方
-
エクセルで作った新しいウイン...
-
Windowのちらつき防止
-
フォームでPDFを表示させた...
-
Alt+P,Alt+NをPostmessageで送...
-
勝手にウィンドウが開いて止ま...
-
C++にて、塗りつぶされた円を描...
-
ゲームでは結局どっちが良いの?
-
VB6でシャットダウン、ログオフ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
グラフの交点の求め方(Excel)
-
マインクラフト(pc版)で座標...
-
3次元空間上の2つの座標から...
-
エクセルである点からの距離で...
-
始点、終点の二つの座標と半径...
-
エクセルで回転する座標の出し方
-
閉図形の座標の配列が右回りか...
-
ワード上Shapeの位置情報を統一...
-
以下のプログラムは重心を求め...
-
C言語 配列で座標
-
ダイアログ内コントロールの位...
-
ガウシアンフィルタのCプログラム
-
空間上の二点を結ぶ直線上に任...
-
エクセルシート上のマウスポイ...
-
シーケンサー(PLC?)で制...
-
VB6のPrinter.ScaleWidth に対...
-
多角形の内部かどうか判定する方法
-
直線上にある点の座標の求め方
-
y=x^2の座標をプロットするプロ...
-
ピクチャボックスの座標取得
おすすめ情報