Excel VBA 質問スレッド No.749 (解決済)

VBA CopyPictureについて

投稿者 : VBA勉強中     投稿日時 : 2022/05/24(Tue) 15:01:52     OS : Windows 10     EXCEL : Excel 2019
こんにちは、VBAのCopyPictureについて質問です。
CopyPictureは、サイズの指定とかできないのでしょうか?
下記のコードで、Outlookへ別々のシートのセル内容を画像として貼り付けを3枚行いたいのですが、横幅を(258mm)縦幅(自動)にしたいのですが、やはり難しいのでしょうか?
皆様のお力をお借りできたらと思います。どうぞよろしくお願いいたします。

Sub test12()
 Set myoutlook = CreateObject("outlook.application")
 Set mail = myoutlook.CreateItem(O)

With mail
 .To = ThisWorkbook.Worksheets(4).Cells(7, 2)
 '.CC = ThisWorkbook.Worksheets(4).Cells(7, 2)
 '.Attachments.Add UploadFile
 .subject = Replace(ThisWorkbook.Worksheets(4).Cells(2, 2).Value, "{日付}", Date)
 .Display
With mail.GetInspector.WordEditor.Windows(1).Selection
 Body1 = ThisWorkbook.Worksheets(4).Cells(3, 2)
 .Font.Name = "Calibri"
 .Font.Size = "11"
 TypeText = Body1
 .TypeText Chr(13)
 Worksheets(2).Range("A1:O25").CopyPicture
 .Paste
 Worksheets(3).Range("A1:O25").CopyPicture
 .Paste
 Worksheets(1).Range("A1:N41").CopyPicture
 .Paste
End With
 Application.CutCopyMode = False
End With
End Sub

[返信 1] Re : VBA CopyPictureについて
投稿者 : マル     投稿日時 : 2022/05/24(Tue) 19:35:26
投稿時間も大して差が無い所から、常習ですな。

VBA CopyPictureについて
投稿日時: 22/05/24 15:02:15

https://www.moug.net/faq/viewtopic.php?t=81493&sid=406055a00cffc83a46d95fc4114708d8

[返信 2] Re : VBA CopyPictureについて
投稿者 : VBA勉強中     投稿日時 : 2022/05/24(Tue) 19:55:49
■[返信 1] マルさん(2022-05-24 19:35:26)の記事
> 投稿時間も大して差が無い所から、常習ですな。

> VBA CopyPictureについて
> 投稿日時: 22/05/24 15:02:15

> https://www.moug.net/faq/viewtopic.php?t=81493&sid=406055a00cffc83a46d95fc4114708d8

申し訳ありません。様々なところから情報が欲しいため、同じ内容を他掲示板へ投稿しております。
Mogu様で解決したため、解決済みとさせて頂きます。
ありがとうございました。

[返信 3] Re : VBA CopyPictureについて
投稿者 : とおりすがり     投稿日時 : 2022/05/24(Tue) 21:35:22
■[返信 2] VBA勉強中さん(2022-05-24 19:55:49)の記事
> 申し訳ありません。様々なところから情報が欲しいため、同じ内容を他掲示板へ投稿しております。
> Mogu様で解決したため、解決済みとさせて頂きます。
それは自分勝手すぎないかな。
こちらで回答を考えていた人の作業は無駄になる。
マルチポストするならするで、その旨を事前に書いて欲しい。
そして、他で解決たなら、その概要くらいこちらに連携すべきじゃないの?
今回はURLを書いてくれた人がいたからいいけど。
はい他所で解決したから、ゴクローサン、じゃないだろうに。失礼だと思いますよ。

基本的にはマルチするような話じゃない。

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 13:07:52 )

Page
Top