Board logo

標題: copy註解格式的語法 ?? [打印本頁]

作者: t8899    時間: 2017-11-1 09:32     標題: copy註解格式的語法 ??

copy a1的註解格式 到b1 語法是??(只要格式)
作者: linyancheng    時間: 2017-11-1 10:51

錄製不出來嗎?
作者: t8899    時間: 2017-11-1 13:17

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

Range("A1").Copy
    Range("B1").PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
這是拷全部的註解含格式,我只要格式
作者: yiwei0707    時間: 2017-11-1 13:50

回復 3# t8899


        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
作者: t8899    時間: 2017-11-1 19:59

回復  t8899


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


    沒效果[attach]27897[/attach]
作者: Hsieh    時間: 2017-11-2 08:53

回復 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    時間: 2017-11-2 09:41

回復 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    時間: 2017-11-2 10:14

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




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