Board logo

標題: [發問] excel 插入圖片後,別台電腦無法開啟 [打印本頁]
作者: PKKO    時間: 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
複製代碼
作者: lpk187    時間: 2015-3-9 14:09

回復 1# PKKO


    我都用ADD方式放入
例如:
工作表3.Shapes.AddPicture ThisWorkbook.Path & "1.png", True, True, 70, 360, 230, 145
作者: PKKO    時間: 2015-3-9 17:17

回復 2# lpk187


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



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