有關插入圖片的問題 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 有關插入圖片的問題

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

有關插入圖片的問題

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

5^# 跳轉到 »

發表於 2012-10-5 20:22 | 只看該作者

回復 4# GBKEE
唉呀！我怎麼花費這麼多時間在這兒，原來只要把選項改一改就好了，害我寫了一堆語法。不過我也從中學了一些。
像這樣先刪除圖片，以免第二次開活頁簿就會出現圖片大堆疊
ActiveSheet.Shapes.SelectAll
Selection.Delete
再來就是在另一個活頁簿貼圖，從那兒複製過來
Sheets("sheet1").Shapes(1).Copy
ActiveSheet.Paste Destination:=Sheets("成績單").Range("a" & 1 + 26 * j)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-10-5 08:22 | 只看該作者

回復 1# skyutm
試試看

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

3^#

發表於 2012-10-4 22:22 | 只看該作者

不好意思！小弟已經在網路上和書上找到解決的方法。就是先不要複製圖片。等到隱藏儲存格的語法跑完。再來跑複製圖片的語法。這樣圖片就不會被壓縮了。

中學生 Rank: 2

帖子: 84
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
註冊時間: 2012-8-10
最後登錄: 2018-4-21

2^#

發表於 2012-10-3 19:03 | 只看該作者

檔案在此，是最右邊「成績單」這個活頁簿，再次感謝！
http://www.funp.net/653900

靜思自在 : 多做多得。少做多失。

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