Excel 圖片壓縮動作的程式碼 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Excel 圖片壓縮動作的程式碼

返回列表下一主題上一主題發帖

[發問] Excel 圖片壓縮動作的程式碼

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

1^# 跳轉到 »

發表於 2012-9-20 08:14 | 顯示全部帖子

壓縮?
大小壓縮? ( 縮圖? 檔案大小壓縮? )
圖片內容壓縮 ( 若超出範圍則進行壓縮以便符合 )

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-9-21 09:05 | 顯示全部帖子

個人建議直接用軟體壓縮解析度比較快= ="

'
ActiveSheet.Pictures.Insert( _
"C:\Users\user\Pictures\XXXX.gif").Select
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

靜思自在 : 願要大、志要堅、氣要柔、心要細。

返回列表下一主題上一主題