Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2783 / 76735

←次へ　｜　前へ→


	【79592】Re:エクセルの表を画像としてoutlookに貼り付けた後に、高さを指定したいです。

γ - 18/1/31(水) 12:12 -


	引用なし

	パスワード

【79578】outlookメールにセル貼り付け
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=79578;id=excel
とは同じ方ですか？

貼り付け後の図形を縮小すればどうですか？
1ページに収まるかどうかは本文の多寡にもよりますし、
自動判定は難しいでしょう。
（そうしたことを簡単にリクエストするのはいかがかと思います。
　提示されたコードもなんだかという感じですが。）

テキストベース＋添付ファイルとするほうが普通は歓迎されるはずです。
以下は参考まで。

Sub test()
　　Dim Ap As Object
　　Dim M As Object
　　Dim g As Long
　　Dim w1 As Worksheet
　　
　　Set w1 = Worksheets(1)
　　g = w1.Cells(Rows.Count, 1).End(xlUp).Row
　　w1.Range(w1.Cells(1, 1), w1.Cells(g, 1)).CopyPicture

　　Set Ap = CreateObject("Outlook.Application")
　　Set M = Ap.CreateItem(0)
　　M.BodyFormat = 3　　　　　　'リッチテキスト形式
　　M.To = "test@test";　　　　　'アドレス
　　M.Subject = "テスト"　　　　'件名
　　M.display　　　　　　　　　 '画面を表示
　　
　　With Ap.Activeinspector.Wordeditor.Windows(1)
　　　　.Selection.Paste
　　　　With .Document.InlineShapes(1)
　　　　　　.ScaleHeight = 50
　　　　　　.ScaleWidth = 50
　　　　End With
　　End With
End Sub

10 hits

▼

【79591】エクセルの表を画像としてoutlookに貼り付けた後に、高さを指定したいです。 たま 18/1/30(火) 8:28