返回列表 上一主題 發帖

[發問] 註解大小問題請教

[發問] 註解大小問題請教

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

回復 1# rouber590324


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

TOP

THANKS*10000

TOP

        靜思自在 : 不怕事多,只怕多事。
返回列表 上一主題