標題: [發問] 請教(excel註解插入選擇圖片)VBA要如何寫? [打印本頁]

---

作者: blue2263    時間: 2015-7-15 10:50     標題: 請教(excel註解插入選擇圖片)VBA要如何寫?

請教大大
儲存格選擇後->插入註解->註解插入選擇圖片
程式碼應該要如何寫?

麻煩大大幫我解答,謝謝

---

作者: jackyq    時間: 2015-7-16 11:57

註解沒辦法插入圖片的

---

作者: GBKEE    時間: 2015-7-17 09:05

回復 2# jackyq
Shape 都可以加入背景片

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("B4")     '指定儲存格
   
4.         .ClearComments   '清除註解
   
5.         .AddComment      '插入註解
   
6.         With .Comment    '註解
   
7.             .Visible = True '可見
   
8.             .Text "插入 指定圖片"   '文字
   
9.             With .Shape.OLEFormat.Object  '物件
   
10.                 .ShapeRange.Fill.UserPicture "d:\001.jpg" '圖片名稱
    
11.             End With
    
12.         End With
    
13.     End With
    
14. End Sub

複製代碼

---

作者: blue2263    時間: 2015-7-17 15:03

感謝G大解答

但我想要程式功能是
不要固定R4儲存格,以現在所選儲存格,
插入圖片檔案,希望能彈出對話框,自己選擇

煩請G大幫忙謝謝

---

作者: GBKEE    時間: 2015-7-17 19:11

本帖最後由 GBKEE 於 2015-7-17 19:19 編輯

回復 4# blue2263
不固定Range ("B4") 可用 Selection 替代
論壇上搜尋  Application.FileDialog,VBA的說明有範例,
試試看,真不行,再發問.

---

作者: blue2263    時間: 2015-7-20 12:21

好的,謝謝G大

---

作者: blue2263    時間: 2015-7-29 11:48

G大您好
彈出選擇視窗,我寫不出來
還請G大幫忙
謝謝

---

作者: GBKEE    時間: 2015-7-30 08:09

回復 7# blue2263

1. Option Explicit
   
2. 'VBA的說明有 FileDialog 的範例,
   
3. Sub Ex()
   
4.     Dim E As Variant
   
5.     'Dim Box As FileDialog, E As Variant
   
6.     'Set Box = Application.FileDialog(msoFileDialogOpen)
   
7.      'With Box
   
8.      With Application.FileDialog(msoFileDialogOpen)
   
9.         .Show
   
10.         For Each E In .SelectedItems
    
11.             MsgBox E
    
12.             '導入你的程式
    
13.         Next
    
14.     End With
    
15.    
    
16. End Sub

複製代碼

---

作者: blue2263    時間: 2015-8-1 06:51

感謝G大可以用了

---

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