12
返回列表 上一主題 發帖

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

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
60 
主題
12 
精華
0 
積分
106 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-4-19 
11# 跳轉到 »
發表於 2020-10-12 13:33 | 顯示全部帖子
回復  准提部林


    准大您好，
    因需要圖片放到儲存格範圍後能做到如下：
    1.圖片在儲存格範 ...
takeshilin88 發表於 2020-10-12 13:10


   抱歉，更正一下檔案~~


1091012-QUO.rar (48.04 KB)

TOP

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
60 
主題
12 
精華
0 
積分
106 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-4-19 
12#
發表於 2020-10-12 16:33 | 顯示全部帖子
回復 25# 准提部林

    With ActiveSheet.Shapes("圖片 1")
    或設定為With ActiveSheet.Shapes(i)
    我在前面設定了
     i = ThisWorkbook.Path & "\" & NewRef & ".jpg"
   
    都會出現"找不到指定名稱的項目。

TOP

takeshilin88
　暱稱: 鹹蛋

中學生Rank: 2

帖子
60 
主題
12 
精華
0 
積分
106 
點名
0  
作業系統
Win 10家用版 
軟體版本
Office 2013 
閱讀權限
20 
性別
女 
來自
新北 
註冊時間
2016-1-27 
最後登錄
2024-4-19 
13#
發表於 2020-10-12 17:16 | 顯示全部帖子
回復 25# 准提部林


    剛剛試一下，把With ActiveSheet.Shapes("圖片 1")改成With ActiveSheet.Shapes.AddPicture(i, False, True, rngs.Left, rngs.Top, True, True)
    就可以了耶~~
    感謝准大，太感謝了~~

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
12
返回列表 上一主題