Excel VBA質問箱 IV

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

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


4702 / 76732 ←次へ | 前へ→

【77646】Re:VBA 画像圧縮
お礼  SEWING11  - 15/11/18(水) 0:15 -

引用なし
パスワード
   ウッシ様

回答ありがとうございます。
記載頂いたコードを試しました。
元画像ファイルのサイズが変わるのですね!
 →こんな動作もできるのですね。

ただ、今回求めている動作とは少し違いました。
申し訳ありません。

目的は
 指定セルをダブルクリック、フォルダを開き画像選択
 画像挿入(指定したサイズまたはセルのwh合わせ)、
 挿入された画像を切り取り、形式(Jpeg)を指定して貼付
 貼付た画像をセル内で上下センタリング
としたいのです。

.Cut
End With
Me.PasteSpecial Format:="図 (JPEG)"

等、記載しているのですが、うまく動作せず・・・
試行錯誤しております。
回答、ありがとうございました。

4 hits

【77636】VBA 画像圧縮 SEWING11 15/11/14(土) 22:45 質問[未読]
【77637】Re:VBA 画像圧縮 β 15/11/15(日) 6:10 発言[未読]
【77638】Re:VBA 画像圧縮 SEWING11 15/11/15(日) 16:02 お礼[未読]
【77639】Re:VBA 画像圧縮 β 15/11/15(日) 17:17 発言[未読]
【77640】Re:VBA 画像圧縮 マナ 15/11/15(日) 21:11 発言[未読]
【77641】Re:VBA 画像圧縮 SEWING11 15/11/15(日) 21:38 お礼[未読]
【77644】Re:VBA 画像圧縮 ウッシ 15/11/17(火) 8:43 回答[未読]
【77646】Re:VBA 画像圧縮 SEWING11 15/11/18(水) 0:15 お礼[未読]
【77647】Re:VBA 画像圧縮 ウッシ 15/11/18(水) 8:39 回答[未読]
【77648】Re:VBA 画像圧縮 β 15/11/18(水) 8:49 発言[未読]
【77649】Re:VBA 画像圧縮 SEWING11 15/11/18(水) 9:42 お礼[未読]
【77653】Re:VBA 画像圧縮 SEWING11 15/11/18(水) 12:44 お礼[未読]
【77654】Re:VBA 画像圧縮 ウッシ 15/11/18(水) 14:05 回答[未読]
【77659】Re:VBA 画像圧縮 SEWING11 15/11/18(水) 18:14 お礼[未読]

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