copy註解格式的語法 ??

t8899

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

linyancheng

錄製不出來嗎？

t8899

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

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

yiwei0707

回復 3# t8899


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

t8899

回復  t8899


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

    沒效果 Book1.zip (6.66 KB)

下載次數: 5

2017-11-1 19:59

Hsieh

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

複製代碼

GBKEE

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

複製代碼

t8899

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