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.2
- 回答日時:
なんか#1 コピペで作ったコード違和感があって 昔作ったファイルを探しました
実際には この様な書き方をしていました
With mailObj.GetInspector.WordEditor
With .Range(0, 0)
'貼り付け処理
End With
With .Range(0, 0)
'貼り付け処理
End With
End With
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
お探しの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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excel VBA メール作成について Excelで作った表を写真のハイパーリンクの後に 図形にして
Visual Basic(VBA)
-
VBAのフォント変更(エクセルからoutlookのメール作成において)
Visual Basic(VBA)
-
マクロ初心者です。 マクロで範囲選択したセルをOutlookのメールの本文に貼り付けたいのですがなか
Visual Basic(VBA)
-
-
4
Excel VBA メール作成について 下記についてどのように記述したらいいか、教えて頂けると幸いで
Visual Basic(VBA)
-
5
Excel VBA Outlookメール作成について
Excel(エクセル)
-
6
VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本
Visual Basic(VBA)
-
7
エクセルVBAでOutlookメールの書式を変える
Excel(エクセル)
-
8
ExcelVBAでOutlookにセル内容を送る
その他(プログラミング・Web制作)
-
9
OutLookのメール本文への貼付の仕方
Excel(エクセル)
-
10
アウトルックが起動しているかどうかを取得するには?
Visual Basic(VBA)
-
11
VBA エクセル メール送信 ハイパーリンクの貼り方
その他(Microsoft Office)
-
12
エクセルVBAでOutlookメール作成
その他(Microsoft Office)
-
13
outlook文字色付け/マーカーのVBAコード
その他(Microsoft Office)
-
14
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
エクセルVBAでアウトルックメールの差出人変更
Excel(エクセル)
-
17
Application.ActiveInspectorでエラーがでます。
Visual Basic(VBA)
-
18
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
19
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
20
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
number 改行が追加できない
-
Excel VBA メール作成について ...
-
Line Inputにて改行があっても...
-
改行コードがそのまま表示され...
-
CGIを勉強しています。¥n(改...
-
ポインター引数の関数でコンパ...
-
10Mバイトて文字数に すると何...
-
UTF-8で5~6バイトになる文字コ...
-
COBOLのCOMP形式について
-
エクセルシート名の制限を変更...
-
ビットスワップとバイトスワッ...
-
バイナリとBCDコード
-
memcmp バイナリデータの比較方法
-
char str[256]の256の意味は?
-
DataGridViewの特定列に入力さ...
-
Javaで日本語1文字のバイト数
-
機種依存文字をチェックしたい。
-
3バイト文字(UTF-8)をprintfで...
-
unicode←→JISコード
-
ビットからバイトへの変換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA メール作成について ...
-
CGIを勉強しています。¥n(改...
-
改行コードがそのまま表示され...
-
Line Inputにて改行があっても...
-
Rstudioによるテキストマイニン...
-
Excelで、HTMLタグだけを削除す...
-
エクセルで「改行コード」を「...
-
MACの改行コード変更について教...
-
【HELP!!】Excelから保存したtx...
-
ホームページビルダーで行間を...
-
perlで、[ \\r\\n , \\n ]の意...
-
alertの警告文を2行にしたい
-
連想するもの教えてください
-
テキストボックスに入力された...
-
全文表示…の仕方。
-
メモ帳での改行
-
PHP <br /> <br> 結局どっち?
-
改行コードについて
-
brタグについて質問です。
-
if文中で@***(配列変数)って...
おすすめ情報