![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
wordの透かしのように全シートに特定の指定するオブジェクト(画像)を張り付けることは可能でしょうか?
実施したいこと
1 画像を挿入(指定のフォルダとかから)
2 真ん中に表示(上下左右中央)
3 最前面に表示
4 指定のページに画像を挿入
5 指定のページのヘッダにロゴマークを表示(ヘッダの位置10mm)
マクロ等で考えており、プログラムとかでできればいいのですが、
マクロで画像の挿入はできましたが、上下中央、左右中央、最前面表示等をしましたが、挿入しか反映できませんでした・・・
ヘッダかフッタの指定ページにもロゴマーク等を入れたいのですが個別にチマチマやるしかありませんかね
wordにはそもそも実行不可ですか?
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
文書各ページごとに画像を挿入したいのですね。
確実な方法は、Selection.GoToで各ページに移動することです。
お礼にあるマクロの一部を修正したものを提示します。
Sub 画像の挿入2()
Dim PIC As Shape
Dim shp As Word.Shape
Dim pg As Long
Dim i As Integer
' 各ページごとの処理
pg = Selection.Information(wdNumberOfPagesInDocument)
For i = 1 To pg
Selection.GoTo What:=wdGoToPage, _
Which:=wdGoToAbsolute, _
Count:=i
' 画面の更新を止める
Application.ScreenUpdating = False
' 画像処理
Set PIC = ActiveDocument.Shapes.AddPicture("C:\Users\hiroshilun\Pictures\7月\ゴザの上でくつろぐ気ままな野良猫.jpg")
With PIC
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
.Left = wdShapeCenter
.Top = wdShapeCenter
End With
Next
Set PIC = Nothing
' 画面の更新
Application.ScreenUpdating = True
End Sub
ヘッダーの処理については、こちら↓が参考になるのでは。
https://www.relief.jp/docs/word-vba-add-shape-he …
ご回答ありがとうます。
あれから色々試しおかげさまで何パターンか確認することができ無事指定通りの結果にできました。
ありがとうございました。
No.1
- 回答日時:
2 真ん中に表示(上下左右中央)について
こちら↓の回答がヒントになりませんか?
https://oshiete.goo.ne.jp/qa/10906231.html
一部再掲
' 配置関係の書式を設定
With PIC
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
.Left = wdShapeCenter
.Top = wdShapeCenter
End With
3の最前面表示は、新規に追加したものが常に最前面になります。
(挿入した図の順序は、後からのものが常に最前面なので)
文字列の折り返しは、他の図と同じにしてくださいね。
4と5についてはページ設定での指定ですね。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
具体的な書き方は質問者さんが調べてみてね。
enunokokoroさん回答ありがとうございます。
ヒントからあれからいろいろ試してみて
中央に来ることとページ数分の貼り付けはできるようになりましたが
最初のページにすべて集約してしましました。
Sub 画像の挿入2()
Dim PIC As Shape
Dim shp As Word.Shape
Dim pg As page
For i = 1 To wdNumberOfPagesInDocument
'With ActiveWindow
'.View.Type = wdPrintView
'For Each pg In .ActivePane.Pages
Set PIC = ActiveDocument.Shapes.AddPicture("C:\Users\eine-\OneDrive\デスクトップ\test1\test (1).png")
With PIC
.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
.Left = wdShapeCenter
.Top = wdShapeCenter
End With
'Next pg
'End With
Next
Set PIC = Nothing
End Sub
ヘッダについても高さ調整等はできましたがアンカーのせいで左固定になってしまい、右寄せ等ができませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- その他(Microsoft Office) 複数の写真を1枚に印刷 5 2023/05/05 22:41
- Word(ワード) Office 365のWordでオブジェクト挿入であるWord文書にほかのWord文書やPDFを貼り 2 2022/05/09 15:57
- Gmail Gメールの受信トレイの表示が変わって、戸惑っています 1 2023/04/04 17:52
- Excel(エクセル) excelvbaでスライドショーを作りたい 2 2023/04/20 14:32
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- Visual Basic(VBA) Excel VBA オブジェクトマクロ 使用指定について お詳しい方教えてください。 共通エクセルフ 2 2023/03/14 17:26
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで枠飾り
-
大学のレポートを書くためにWor...
-
PowerDirector 11で空白時間の挿入
-
エクセルのフッター(右)に入...
-
ヘッダーとフッダーの縦書き方法
-
エクセルVBAで縦向きの画像の挿...
-
VBAで特定のセルに画像があれば...
-
ワードで図のサイズを固定して...
-
WORDヘッダーに原サイズの画像...
-
EXCELのフッターにオートシェイ...
-
note(no+e)について質問です。
-
デジカメ写真のサイズ変更は、...
-
好きなサイトが文字化けしました
-
GIMPとWORDについて
-
ワードでカレンダー作り
-
前回のドラレコのSDカードにつ...
-
ワード2007でPDFファイルを挿入...
-
エクセルで画像挿入(カレンダ...
-
エクセル2007にてピアノの図柄...
-
word A4サイズの文書に挿入する...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで枠飾り
-
大学のレポートを書くためにWor...
-
エクセルのフッダーに四角で囲...
-
エクセルのフッター(右)に入...
-
ヘッダーとフッダーの縦書き方法
-
エクセルVBAで縦向きの画像の挿...
-
PowerDirector 11で空白時間の挿入
-
フッターを「最前面」に
-
EXCELのフッターにオートシェイ...
-
エクセルで写真の挿入 セルの中...
-
Win11で使える写真整理ソフトを...
-
写真9枚をA4紙に配置したい。
-
エクセルで作成した文に柄・模...
-
OO.oのDrawで挿入絵の背景を透...
-
EXCELにjpg画像を挿入...
-
GoodNotes5で、画像を複数選択...
-
Wordに貼り付ける図の初期設定変更
-
Accessで請求書に印鑑を...
-
VBAで特定のセルに画像があれば...
-
GIMPとWORDについて
おすすめ情報