麻辣家族討論版版 - Powered by Discuz! Board

標題: 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

註解物件無法以複製/選擇性貼上格式
但可以取得文字的格式然後到目標區設定格式

Sub ex()
With Range("H1").Comment.Shape
With .TextFrame.Characters.Font
MsgBox .FontStyle '字體粗斜
MsgBox .ColorIndex '文字顏色
MsgBox .Name '字型
MsgBox .Size '文字大小
End With
End With
End Sub

複製代碼

作者: GBKEE 時間: 2017-11-2 09:41

回復 1# t8899

Sub Ex()
With ActiveSheet
.[H1].Copy .[B1]
With .[B1]
.Value = ""
.NoteText "OK!"
End With
End With
End Sub

複製代碼

作者: t8899 時間: 2017-11-2 10:14

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

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