標題: [發問] Excel 圖片壓縮 動作的程式碼 [打印本頁]

---

作者: jsleee    時間: 2012-9-19 22:40     標題: Excel 圖片壓縮 動作的程式碼

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

JS

---

作者: mark15jill    時間: 2012-9-20 08:14

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

---

作者: jsleee    時間: 2012-9-20 13:02

回復 2# mark15jill


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

JS

---

作者: mark15jill    時間: 2012-9-21 09:05

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

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

複製代碼

---

作者: jsleee    時間: 2012-9-23 21:36

回復 4# mark15jill


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

JS

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)