返回列表 上一主題 發帖

copy註解格式的語法 ??

copy註解格式的語法 ??

copy a1的註解格式 到b1 語法是??(只要格式)

錄製不出來嗎?

TOP

錄製不出來嗎?
linyancheng 發表於 2017-11-1 10:51

Range("A1").Copy
    Range("B1").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
這是拷全部的註解含格式,我只要格式

TOP

回復 3# t8899


        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

TOP

回復  t8899


        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ ...
yiwei0707 發表於 2017-11-1 13:50


    沒效果 Book1.zip (6.66 KB)

TOP

回復 5# t8899

註解物件無法以複製/選擇性貼上格式
但可以取得文字的格式然後到目標區設定格式
  1. Sub ex()
  2. With Range("H1").Comment.Shape
  3.    With .TextFrame.Characters.Font
  4.    MsgBox .FontStyle  '字體粗斜
  5.    MsgBox .ColorIndex  '文字顏色
  6.    MsgBox .Name  '字型
  7.    MsgBox .Size  '文字大小
  8.    End With
  9. End With
  10. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 1# t8899
  1. Sub Ex()
  2.     With ActiveSheet
  3.         .[H1].Copy .[B1]
  4.         With .[B1]
  5.             .Value = ""
  6.             .NoteText "OK!"
  7.         End With
  8.     End With
  9.         
  10. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

兩位版主的答案都可解決我的問題,謝謝指導

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題