Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


803 / 886 ←次へ | 前へ→

【87】Re:拡張メタファイルの貼り付け
回答  H. C. Shinopy  - 04/3/25(木) 0:06 -

引用なし
パスワード
   「拡張メタファイル」がどういうものか、
私は思い出せなくて・・・
確かにそういうのがあったような気がするのですが・・・
これは、Wordの旧バージョンの話ですか?
私が判る範囲内で答えさせて頂きます。

VBEの画面右上の質問ボックスで「ZOrder」を検索すると、
『ZOrderメソッド(Word)』のヘルプとして、
次の使用例が載っています。(但し、Word2002の話です。)
「・・・
次の使用例は、現在の文書に楕円を追加し、
文書内に少なくともほかの図形が 1 つでも存在する場合は、
追加した楕円を z 軸方向の最後から 2 番目の図形として配置します。

With ActiveDocument.Shapes.AddShape(Type:=msoShapeOval, Left:=100, _
  Top:=100, Width:=100, Height:=300)
  While .ZOrderPosition > 2
    .ZOrder msoSendBackward
  Wend
End With
・・・」

オートシェイプなどの図については、
「ZOrder」で移動先を指定できます。
御質問の「背面」が何を意味するのか
判然としませんが、
ここでは、既に挿入した図を総て
「文字列の後ろへ移動する」ということで、
下記のマクロを掲げることに致します。

Sub myShapeBehindText()
 Dim myShape As Shape
 '
 For Each myShape In ActiveDocument.Shapes
  myShape.ZOrder msoSendBehindText
 Next myShape
End Sub

2,876 hits

【86】拡張メタファイルの貼り付け きみこ 04/3/23(火) 10:35 質問
【87】Re:拡張メタファイルの貼り付け H. C. Shinopy 04/3/25(木) 0:06 回答
【88】Re:拡張メタファイルの貼り付け きみこ 04/3/25(木) 14:41 お礼
【89】Re:拡張メタファイルの貼り付け きみこ 04/4/14(水) 14:46 質問
【90】Re:拡張メタファイルの貼り付け H. C. Shinopy 04/4/17(土) 22:17 回答
【94】Re:拡張メタファイルの貼り付け きみこ 04/4/30(金) 15:56 お礼
【100】Re:拡張メタファイルの貼り付け きみこ 04/5/27(木) 11:13 質問
【101】Re:拡張メタファイルの貼り付け H. C. Shinopy 04/5/27(木) 23:17 回答
【112】Re:拡張メタファイルの貼り付け きみこ 04/6/22(火) 23:34 お礼

803 / 886 ←次へ | 前へ→
ページ:  ┃  記事番号:
207142
(SS)C-BOARD v3.8 is Free