Excel VBA メール作成について
本文の中にExcel でコピーした図を上下に2つ
貼り付けをしたいです。
Range("D7")セル
(本文)<br><br>
【PT1】<br><br>
【PT2】
【PT1】【PT2】をそれぞれ図に置き換えたところ、
それぞれの位置に上手く置き換えができず、【PT1】の位置に【PT2】の図だけが貼り付けされていました。
詳しい方教えて頂けると幸いです。
宜しくお願い致します。
*************************************************************
Dim outlookObj As Outlook.Application
Set outlookObj = New Outlook.Application
Dim mailObj As Outlook.MailItem
Set mailObj = outlookObj.CreateItem(olMailItem)
mailObj.Display
Worksheets("リスト").Activate
Dim mailBody As String
mailBody = CreatemailBody
With mailObj
.To = Range("D5")
.CC = Range("D6")
.Subject = Range("D4")
.HTMLBody = mailBody
End With
Dim objWRG As Word.Range
Set objWRG = mailObj.GetInspector.WordEditor.Range(0, 0)
With objWRG
Worksheets("1").Range("A1:Z30").CopyPicture
.Find.Text = "【PT1】"
.Find.Execute
.PasteSpecial
.ShapeRange.Width = 900#
Worksheets("2").Range("A3:AZ28").CopyPicture
.Find.Text = "【PT2】"
.Find.Execute
.PasteSpecial
.ShapeRange.Width = 900#
End With
End Sub
Function CreatemailBody() As String
Dim Body As String
Dim Day As String
Body = Range("D7")
Body = Replace(Body, "【月】", Day)
CreatemailBody = Body
End Function

No.1ベストアンサー
- 回答日時:
こんにちは
Find.Textの【PT1】【PT2】は 本文中にある として
Set objWRG = mailObj.GetInspector.WordEditor.Range(0, 0)
は 一度貼り付けた後に再セットが必要なようです
(私はそのようにしました)
Dim objWRG As Word.Range
Set objWRG = mailObj.GetInspector.WordEditor.Range(0, 0)
With objWRG
Worksheets("1").Range("A1:Z30").CopyPicture
.Find.Text = "【PT1】"
.Find.Execute
.PasteSpecial
.ShapeRange.Width = 900#
End With
Set objWRG = mailObj.GetInspector.WordEditor.Range(0, 0)
Worksheets("2").Range("A3:AZ28").CopyPicture
.Find.Text = "【PT2】"
.Find.Execute
.PasteSpecial
.ShapeRange.Width = 900#
End With
Set objWRG = Nothing

No.2
- 回答日時:
なんか#1 コピペで作ったコード違和感があって 昔作ったファイルを探しました
実際には この様な書き方をしていました
With mailObj.GetInspector.WordEditor
With .Range(0, 0)
'貼り付け処理
End With
With .Range(0, 0)
'貼り付け処理
End With
End With
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
このQ&Aを見た人はこんなQ&Aも見ています
-


Excel VBA メール作成について Excelで作った表を写真のハイパーリンクの後に 図形にして
Visual Basic(VBA)
-


Excel VBA メール作成について 下記についてどのように記述したらいいか、教えて頂けると幸いで
Visual Basic(VBA)
-


VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
-
4

マクロ初心者です。 マクロで範囲選択したセルをOutlookのメールの本文に貼り付けたいのですがなか
Visual Basic(VBA)
-
5

OutLookのメール本文への貼付の仕方
Excel(エクセル)
-
6

VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本
Visual Basic(VBA)
-
7

エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
8

ExcelVBAでOutlookにセル内容を送る
その他(プログラミング・Web制作)
-
9

Excel VBA Outlookメール作成について
Excel(エクセル)
-
10

Excel VBA メール作成について Excel D7セルをOutlookの本文(HTML)にしま
Visual Basic(VBA)
-
11

アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
-
12

VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13

VBAでOutlookを終了させたい ExcelVBAで既に起動されているOutlookを終了させる
Visual Basic(VBA)
-
14

outlook文字色付け/マーカーのVBAコード
その他(Microsoft Office)
-
15

エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法
Visual Basic(VBA)
-
16

メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
17

VBA 置換文字がみつからない時
Visual Basic(VBA)
-
18

vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
-
19

Excel マクロでShearePoint先のフォルダ指定
Excel(エクセル)
-
20

Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Rstudioによるテキストマイニン...
-
COBOLのCOMP形式について
-
UTF-8で5~6バイトになる文字コ...
-
10Mバイトて文字数に すると何...
-
'dataType' 引数を Null にする...
-
DataGridViewの特定列に入力さ...
-
perlプログラミング 空白行削除
-
文字列の最後の一字を削除
-
ビットからバイトへの変換
-
System.Collections.ArrayList ...
-
ブラウザ間でCookieを共有する...
-
Sys::Syslogモジュールを利用し...
-
Excel 1セル当りの文字数が2...
-
ワイド文字のバイト数が取得で...
-
micropythonコード 修正
-
文字の幅について
-
html→aspxへのタグ変換方法
-
printfの%eで指数部分の桁数を...
-
0.5バイトづつ読み込みたいので...
-
構造体のソートの方法について...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA メール作成について ...
-
CGIを勉強しています。¥n(改...
-
Rstudioによるテキストマイニン...
-
Line Inputにて改行があっても...
-
ホームページビルダーで行間を...
-
Excelで、HTMLタグだけを削除す...
-
エクセルで「改行コード」を「...
-
改行コードがそのまま表示され...
-
メールのテキストで多く改行が...
-
メールフォームで改行スペース...
-
連想するもの教えてください
-
【HELP!!】Excelから保存したtx...
-
TEXTAREAで改行するとついてく...
-
テキストエリア内でタグ<BR>を...
-
perlで、[ \\r\\n , \\n ]の意...
-
テキストボックスに入力された...
-
IF文の書き方。
-
改行文字保存時のゴミ
-
社内サーバー上のHPにメールフ...
-
TEXTAREAの改行がうまくいきま...
おすすめ情報
















