Excel VBA質問箱 IV

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

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


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

2856 / 76807

←次へ　｜　前へ→


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

たま

- 18/1/30(火) 8:28 -


	引用なし

	パスワード

エクセルの表をoutlookに画像として貼り付けるコードを書きました。
メールを印刷する時にちょうど良いサイズになるよう、貼り付け後のサイズ指定をしたいのですが、どのようなコードを追加すればよいでしょうか。
よろしくお願い致します。

dim ap as object
set ap =createobject("outlook.application")

set w1=worksheets("コメント")
dim g as long
g=w1.cells(rows.count,1).end(xlup).row

with ap.activeinspector.wordeditor.windows(1).selection
w1.select
range(cells(1,1),cells(g,1)).select
selection.copypicture
.paste
.typetext chr(13)&chr(13)
end with

8 hits

▼

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