Board logo

標題: [發問] 註解內插入圖片 [打印本頁]
作者: dafa    時間: 2012-2-3 15:44     標題: 註解內插入圖片

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

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


[attach]9400[/attach]
作者: PJChen    時間: 2012-2-3 16:50

回復 2# GBKEE

請問以上設定Excel 2010版本在何處可以看到?
作者: Hsieh    時間: 2012-2-3 17:27

回復 3# PJChen

檔案功能表
選項
進階
[attach]9403[/attach]
作者: dafa    時間: 2012-2-3 17:49

回復 2# GBKEE


    感謝G大回覆
但是還是不行會出現錯誤
請G大跑一下我錄製的巨集應該會比較清楚
再麻煩一下 謝謝
作者: register313    時間: 2012-2-3 18:52

本帖最後由 register313 於 2012-2-3 19:04 編輯

回復 5# dafa

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

  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      '加入此行 選取註解

  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    時間: 2012-2-3 19:11

本帖最後由 Hsieh 於 2012-2-3 22:31 編輯

回復 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    時間: 2012-2-3 20:28

回復 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    時間: 2012-2-4 11:38

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



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