[發問] 註解內插入圖片

dafa

請教各位先進
如附件~因某種需求我在註解內插入圖片
我想要自動化一點於是我錄製了我插入圖片的動作
但是卻無法執行
請各位先進幫我看一下需要修改哪裡
謝謝

GBKEE

回復 1# dafa
修改這裡的選項 看看

下載 (71.13 KB)

2012-2-3 16:25

PJChen

回復 2# GBKEE

請問以上設定Excel 2010版本在何處可以看到?

Hsieh

回復 3# PJChen

檔案功能表
選項
進階

下載 (66.96 KB)

2012-2-3 17:27

dafa

回復 2# GBKEE


    感謝G大回覆
但是還是不行會出現錯誤
請G大跑一下我錄製的巨集應該會比較清楚
再麻煩一下 謝謝

register313

回復 5# dafa

GBKEE版大 所言正確
要在註解顯示的狀態之下才能加入圖片

1. Sub Macro4()
   
2. 
   
3.     Range("A1").Select
   
4.     Range("A1").AddComment
   
5.     Range("A1").Comment.Visible = False
   
6.     Range("A1").Comment.Text Text:="JJSR:" & Chr(10) & ""
   
7.   
   
8.     Range("A1").Comment.Visible = True             '加入此行 顯示註解
   
9.    Range("A1").Comment.Shape.Select True      '加入此行 選取註解
   
10. 
    
11.     Range("A1").Comment.Text Text:="JJSR:" & Chr(10) & ""
    
12.     Selection.ShapeRange.Fill.Transparency = 0#
    
13.     Selection.ShapeRange.Line.Weight = 0.75
    
14.     Selection.ShapeRange.Line.DashStyle = msoLineSolid
    
15.     Selection.ShapeRange.Line.Style = msoLineSingle
    
16.     Selection.ShapeRange.Line.Transparency = 0#
    
17.     Selection.ShapeRange.Line.Visible = msoTrue
    
18.     Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    
19.     Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    
20.     Selection.ShapeRange.Fill.Visible = msoTrue
    
21.     Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    
22.     Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
    
23.     Selection.ShapeRange.Fill.UserPicture "C:\1.jpg"
    
24.    
    
25. End Sub

複製代碼

Hsieh

回復 5# dafa

不知你加入的圖片名稱以甚麼方式讓程式讀取
以下代碼為A1輸入圖片名稱含副檔名
執行程式後會判斷A1是否含有註解
然後註解圖片會改成A1所指定的圖片
與註解顯示與否無關

1. Sub ex()
   
2. Dim MyComment As Comment
   
3. Set MyComment = Range("A1").Comment
   
4. fd = InputBox("輸入圖片檔案目錄", , "D:\")
   
5. If MyComment Is Nothing Then
   
6. With Range("A1").AddComment
   
7. .Shape.Fill.UserPicture fd & [A1]
   
8. End With
   
9. Else
   
10. MyComment.Shape.Fill.UserPicture fd & [A1]
    
11. End If
    
12. End Sub

複製代碼

GBKEE

回復 5# dafa
勾選   只顯示註解指標    須滑鼠移動到儲存格位置上     註解才會出現

1. Option Explicit
   
2. Sub Ex()     '用NoteText 直接 增加儲存格註解
   
3.     With [A1]
   
4.         .NoteText " "                                   '儲存格註解加入 一個 空白字元
   
5.         With .Comment.Shape
   
6.             .Fill.UserPicture "D:\EX2.GIF"              '指定背景圖片
   
7.             .Line.ForeColor.SchemeColor = 53
   
8.             .Line.Weight = 2
   
9.             .AutoShapeType = msoShapeRoundedRectangle  '指定註解物件的圖案類型
   
10.         End With
    
11.     End With
    
12. End Sub
    
13. Sub Ex1()   '調整每一個註解
    
14.     Dim C As Comment
    
15.     For Each C In ActiveSheet.Comments
    
16.         With C.Shape
    
17.             .Fill.UserPicture "D:\EX1.GIF"        '指定背景圖片
    
18.             .Line.ForeColor.SchemeColor = 53
    
19.             .Line.Weight = 2
    
20.             .Height = 100
    
21.             .Width = 100
    
22.         End With
    
23.     Next
    
24. End Sub

複製代碼

dafa

回復 8# GBKEE
感謝3位熱心的前輩
我的問題果然是出在媒挑選到註解
我的問題已解決
還要感謝H大提供另一個方法讓我有更多收穫