No.1ベストアンサー
- 回答日時:
こんにちは。
KenKen_SP です。> つまり、Wordでは無理って考えれば良いのでしょうか。
何をやりたいのか具体的に書かれてないので、コメントし難いのですが、
とりあえず、画像を挿入したいなら、
Application.Dialogs(wdDialogInsertPicture).Show
で画像挿入のダイアログを表示できます。また、ファイル名を指定して画像を
挿入し、各種操作するには、
Sub Sample()
Dim PIC As Shape
Dim strFilename As String
strFilename = "C:\Sample.jpg"
Set PIC = ActiveDocument.Shapes.AddPicture(strFilename)
With PIC
.LockAspectRatio = msoTrue ' 縦横比を保つ
' ミリメートル指定でサイズを変更する場合(例:50mm)
.Width = MillimetersToPoints(50)
' 水平方向の位置を決めるときの基準点を余白に設定
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
' 垂直方向の位置を決めるときの基準点を余白に設定
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
' ミリメートル指定で余白位置からの場所を指定(例:上10mm、左10mm)
.Top = MillimetersToPoints(10)
.Left = MillimetersToPoints(10)
' さらに動かしてみる(例:20ポイントずらす)
' ミリメートル指定なら .IncrementTop MillimetersToPoints(10) で 10mm
.IncrementTop 20
.IncrementLeft 20
' さらに回転(例:90度)
.IncrementRotation 90#
End With
Set PIC = Nothing
End Sub
こんな感じで。微妙に Excel とは違いますが、基本は一緒です。
この回答への補足
KenKen_SP さん ご回答有難う御座います。
何がしたいかと言うと
Word で「説明書」を作成したいのです。
少し具体的に言うと「保守指導案内書」を作成します。
「素人でも解るように作成して下さい」との客先依頼ですので、
写真入りで「保守指導案内書」をWord で作っています。
説明書(「保守指導案内書」)を作成するには
Excel より Word の方が作り易いし、見易いので、
Word を選びました。
ところが、Excel では写真のサイズをVBAで自由に
出来ましたが、Word で躓いた次第です。
(元のサイズ(デジカメ写真)は超デカイですので・・)
とりあえず、KenKen_SP さん への返答をしたかったので
補足で失礼します。
これから、KenKen_SP さん のご回答を検討してみます。もし、補足・お礼の順番が反対でしたら、ごめんなさいです。
> With PIC
> .LockAspectRatio = msoTrue ' 縦横比を保つ
> ' ミリメートル指定でサイズを変更する場合(例:50mm)
> .Width = MillimetersToPoints(50) ''----この行でやりたい事ができました。
> ・・・・
> ・・・・
KenKen_SP さん 有難う御座います。
私はVBAに関して始めたばかりの者です。・・のでご迷惑も掛けます。
皆さんのご回答には感謝 々 です。
質問方法についても未熟かもしれませんが、その質問方法についても
ご教示下されば、幸いです。
有難う御座いました。
No.2
- 回答日時:
> 「マクロの記録」で出来ないという事は
> つまり、Wordでは無理って考えれば良いのでしょうか。
VBA は「マクロの記録」では記録されないことも操作可能な場合がありますので、
「マクロの記録」で出来ない = Word では無理という結論にはなりません。
可能・不可能は基本的にヘルプの検索(機能的には貧弱ですが)を使って調べ
ます。今回なら、Width がキーワードになりますね。Width プロパティーのペー
ジで「対象」というリンクをクリックすると、「Shape」とありますので、Shape
オブジェクトに Width プロパティーがあることが分かります。
ヘルプの検索で情報をうまくひろえない場合は、VBE 画面で [F2]キーを押すと
「オブジェクトブラウザ」
が開きますので、そこでキーワードを検索します。今回なら、Picture とか Width
辺りです。検索結果で該当しそうな項目を選択し、「?」ボタンをクリックする
とヘルプの検索機能ではヒットしなかったキーワードでも調べることができます。
> ...その質問方法についても...
> Wordへの写真挿入
> サイズの変更 になりますと、(VBAで記述したいのに)
ご質問のタイトルと本文の内容が異なる、または微妙にずれていると回答の
ピントもぼやけてしまいがちです。タイトルはご質問趣旨を簡潔に盛り込み、
本文は具体例を示し、タイトルと一致した焦点に絞った内容を書いた方が、
的確かつ素早い回答が得られると思います。
今回のご質問では、写真の挿入がわからないのか、サイズの変更がわからない
のか不明瞭でした。ご質問のタイトルでは「写真の挿入」とあるのですが、
本文では WORD VBA での画像取扱い方法がわからない...との印象も受けるため、
全般をカバーする回答を書いておきました。
ご質問文タイトルで、「WORD VBA」、「写真」といったキーワードが入って
いるのはとても良いですね。さらに、今回のご質問の一番のポイント、
「Word VBA 写真のサイズ変更(書式設定)について」
のようなタイトルだと回答される方や、同様の問題解決法を探している方に
とっても、さらに良いものになると思います。最近よく見かけますが、
「Excel について」
このようなタイトルだと、本文を読むまで内容が分かりません。結果、本文を
読んでもらえる確率は低くなり、さらに、タイトルと本文が一致していない
と、回答意欲が削がれてしまいそうです。
KenKen_SP さん 再度のご回答ありがとうございます。
>可能・不可能は基本的にヘルプの検索(機能的には貧弱ですが)を使って調べます。
そうなのです。まず、ヘルプを検索するべきなのですが、
提出期限に追われて、VBAを勉強する時間が限られています。
・・かと言って手作業でしていては、
starsip「絶対間に合わないです。。いいですか?」
社長「よくない。。間に合わせろ。手伝いの人をやるから間に合わせろ」
でも、手伝いの人に手作業でやってもらっても絶対間に合いません。
VBAで作り易くしてあげないと・・
ある意味、「VBAを組んでいる時間があるなら、自分で全ての資料を作ればよいのでは」
と、考える日もあります。
でも、やはり自分一人で一日でやれる事は限りがあります。
ここまで書いて、starsip の愚痴みたいですので、やめます。
>ご質問のタイトルと本文の内容が異なる、または微妙にずれていると回答の
>ピントもぼやけてしまいがちです。タイトルはご質問趣旨を簡潔に盛り込み、
>本文は具体例を示し、タイトルと一致した焦点に絞った内容を書いた方が、
>的確かつ素早い回答が得られると思います。
解りやすい、ご回答ありがとうございます。気を付けます。
なるほどと思いました。
>全般をカバーする回答を書いておきました。
のめしですが、一番ありがたいです。
全て把握出来ますし、、解らないでいた事まで、「そうなんだ」と
質問内容と違う事で納得してみたり・・。
まとまりのつかない、お礼になってしまいましたが
ご指摘頂いた事、よく考えてみます。
KenKen_SP さん 有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 複数の写真を1枚に印刷 5 2023/05/05 22:41
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Word(ワード) スマホWord使用法 1 2023/01/06 18:10
- Excel(エクセル) Excel VBAについてです。 少しだけ知識はあるのですが、 うまくいかなかったので 質問させてい 3 2022/09/13 18:40
- Word(ワード) 写真3枚をA4に貼り付けたい 5 2023/07/03 14:36
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) VBAでWordのネストした表にデータを挿入したい 4 2023/04/24 10:18
- Word(ワード) 9枚の写真がA4 1枚に印刷できました。しかし配列が思うようになりません。 5 2023/07/02 17:15
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで枠飾り
-
ヘッダーとフッダーの縦書き方法
-
大学のレポートを書くためにWor...
-
エクセルで写真の挿入 セルの中...
-
エクセルのフッダーに四角で囲...
-
OO.oのDrawで挿入絵の背景を透...
-
エクセルVBAで縦向きの画像の挿...
-
フッターを「最前面」に
-
写真9枚をA4紙に配置したい。
-
EXCELのフッターにオートシェイ...
-
エクセルのフッター(右)に入...
-
PowerDirector 11で空白時間の挿入
-
GoodNotes5で、画像を複数選択...
-
EXCELにjpg画像を挿入...
-
エクセルで作成した文に柄・模...
-
note(no+e)について質問です。
-
数式のΣ記号が入力できません
-
excel2016 の画像挿入
-
エクセル2007にてピアノの図柄...
-
WORD上で図形を反転するには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで枠飾り
-
大学のレポートを書くためにWor...
-
エクセルのフッダーに四角で囲...
-
エクセルのフッター(右)に入...
-
ヘッダーとフッダーの縦書き方法
-
エクセルVBAで縦向きの画像の挿...
-
PowerDirector 11で空白時間の挿入
-
フッターを「最前面」に
-
EXCELのフッターにオートシェイ...
-
エクセルで写真の挿入 セルの中...
-
Win11で使える写真整理ソフトを...
-
写真9枚をA4紙に配置したい。
-
エクセルで作成した文に柄・模...
-
OO.oのDrawで挿入絵の背景を透...
-
EXCELにjpg画像を挿入...
-
GoodNotes5で、画像を複数選択...
-
Wordに貼り付ける図の初期設定変更
-
Accessで請求書に印鑑を...
-
VBAで特定のセルに画像があれば...
-
GIMPとWORDについて
おすすめ情報