[發問] 請教(excel註解插入選擇圖片)VBA要如何寫?

blue2263

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

麻煩大大幫我解答,謝謝

blue2263

感謝G大可以用了

GBKEE

回復 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

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

blue2263

好的,謝謝G大

GBKEE

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

blue2263

感謝G大解答

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

煩請G大幫忙謝謝

GBKEE

回復 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

複製代碼

jackyq

註解沒辦法插入圖片的