插入圖片時，等比例放大或縮小

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-24

2^#

發表於 2020-9-28 13:20 | 顯示全部帖子

回復 2# ikboy

感謝ikboy大大回覆，
經測試後發現圖片有在儲存格內等比例放大，但似乎會停在10~15的這個迴圈出不來(因為等比例放大後的圖片寬度還是比儲存格範圍小)，
我試著在第13行插入Exit Sub，也沒有用，請問該如何修正？
另外要加上什麼指令可以將等比例放大後的圖片在儲存格範圍內置中呢？
謝謝~~

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-24

3^#

發表於 2020-9-29 15:17 | 顯示全部帖子

本帖最後由 takeshilin88 於 2020-9-29 15:21 編輯

回復 5# ikboy

ikboy大大您好：

是「圖自身長寬按相同比例盡量放入儲存格中」
您提供的指令有將圖片放大，但因為儲存格範圍比較寬，所以圖片還需要左右置中
謝謝

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-24

4^#

發表於 2020-9-30 15:07 | 顯示全部帖子

回復 7# ikboy

感謝ikboy大大，
已經成功了，
請教這裡的If的判斷是依照什麼條件，有點不太理解?? 高 / 寬
If .Height / .Width >= Rngs.Height / Rngs.Width Then

感恩~~

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-24

5^#

發表於 2020-10-5 15:34 | 顯示全部帖子

回復 9# ikboy

原來如此，又學到了一招，再次感謝~~

　暱稱: 鹹蛋

帖子: 60
主題: 12
精華: 0
積分: 106
點名: 0
作業系統: Win 10家用版
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: 新北
註冊時間: 2016-1-27
最後登錄: 2024-4-24

6^#

發表於 2020-10-7 13:43 | 顯示全部帖子

回復 7# ikboy

求救!!!
因此excel檔後續以巨集方式使用outlook寄信時，加入附件，
但對方收到後檔案開啟無法正常顯示圖片，出現：無法顯示連結的圖像。檔案可能已移動、重新命名或刪除。請驗證連結指向正確的檔案及位置。

查詢好像是要用Shapes.AddPicture 的方式，
請教要如何改為Shapes.AddPicture 呢？
感謝~