標題: [發問] 註解大小問題請教 [打印本頁]

---

作者: rouber590324    時間: 2020-10-14 13:49     標題: 註解大小問題請教

Dear all 大大 -
1.如圖一 書寫自動加入註解功能-執行ok
2.如圖二 欲調整註解框之大小.執行後出現"物件不支援此屬性或方法"????
2.1請教如何調整註解框之大小  煩不吝賜教   thanks*10000

圖一
Sub 註解A001()
    X = Sheet3.Range("GZ41")
    Sheet3.Select
    Sheet3.Cells(X, 6).Select
    Selection.ClearComments
    Sheet3.Cells(X, 6).Select      
    Sheet3.Cells(X, 6).AddComment
    Sheet3.Cells(X, 6).Comment.Visible = False   
    Sheet3.Cells(X, 6).Select
    Sheet3.Cells(X, 6).Comment.Text Text:= _
        "說明:" & Chr(10) & "" & Sheet3.Range("HA42") & ""
    Range("F53").Select   
End Sub
圖二
    Selection.ShapeRange.ScaleWidth 2.05, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.67, msoFalse, msoScaleFromTopLeft

---

作者: jcchiang    時間: 2020-10-15 15:36

回復 1# rouber590324


    [a1].Select  '要修改註解的儲存格
Selection.Comment.Shape.ScaleWidth 2.05, msoFalse, msoScaleFromTopLeft
Selection.Comment.Shape.ScaleHeight 1.67, msoFalse, msoScaleFromTopLeft

---

作者: rouber590324    時間: 2020-10-16 09:45

THANKS*10000

---

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