Excel VBA質問箱 IV

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

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


56 / 74007 ←次へ | 前へ→

【79591】エクセルの表を画像としてoutlookに貼り付けた後に、高さを指定したいです。
質問  たま E-MAIL  - 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

49 hits

【79591】エクセルの表を画像としてoutlookに貼り付けた後に、高さを指定したいです。 たま 18/1/30(火) 8:28 質問[未読]
【79592】Re:エクセルの表を画像としてoutlookに貼り... γ 18/1/31(水) 12:12 回答[未読]
【79596】Re:エクセルの表を画像としてoutlookに貼り... γ 18/1/31(水) 23:01 回答[未読]

56 / 74007 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free