jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-9-19 22:40 | 只看該作者

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

請教各位先進，因為想要將Excel工作表中圖片壓縮的動作轉為程式碼，
但是使用巨集錄製的功能似乎錄不起來
不知有無這類的程式碼可以參考？
我的Excel 為 2010版，謝謝

JS

樓主熱帖

mark15jill

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

高中生 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-20 08:14 | 只看該作者

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

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

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

  少看=只看不做也枉然

TOP

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

3^#

發表於 2012-9-20 13:02 | 只看該作者

回復 2# mark15jill

您好
我所指的是圖片檔案大小的壓縮，否則太佔記憶體了....

JS

TOP

mark15jill

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

高中生 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

4^#

發表於 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

複製代碼

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

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

  少看=只看不做也枉然

TOP

jsleee

中學生 Rank: 2

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 1
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

5^#

發表於 2012-9-23 21:36 | 只看該作者

回復 4# mark15jill

謝謝 mark15jill 前輩的指導，我再測試看看

JS

TOP