返回列表 上一主題 發帖

[發問] excel 插入圖片後,別台電腦無法開啟

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-9 10:56 | 只看該作者

[發問] excel 插入圖片後,別台電腦無法開啟

本帖最後由 PKKO 於 2015-3-9 10:58 編輯
  1. For Each h In arr2
  2.         '插入圖片
  3.        Set MyPic = ActiveSheet.Pictures.Insert(myfloder & "PIC\" & E & "\" & h)
  4.        '為何上面的方式只要換了原始圖片的位置就會無法顯示圖片
  5.        '要改為何種CODE才可以真正的複製照片至EXCEL?
  6. '------------------------------下面是我目前的補救方式----------------------------
  7.        Num = Num + 1
  8.        ActiveSheet.Shapes.Range(Array("Picture " & Num)).Select
  9.        Selection.Copy
  10.                                     
  11.        ActiveSheet.Pictures.Paste.Select
  12.        ActiveSheet.Shapes.Range(Array("Picture " & Num)).Delete
  13.        Num = Num + 1
  14. '-----------------------------------------------------------------------
  15.                             Next
複製代碼
收藏 分享
PKKO

lpk187

帖子
552 
主題
3 
精華
0 
積分
578 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2015-2-8 
最後登錄
2024-7-9 

2016猴年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2015-3-9 14:09 | 只看該作者
回復 1# PKKO


    我都用ADD方式放入
例如:
工作表3.Shapes.AddPicture ThisWorkbook.Path & "1.png", True, True, 70, 360, 230, 145

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2015-3-9 17:17 | 只看該作者
回復 2# lpk187


    這種方式要如何"事先"得知圖片的長與寬呢?
避免影響了照片原本的比例!
PKKO

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題