返回列表 上一主題 發帖

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

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 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
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2020-10-16 09:45 | 只看該作者
THANKS*10000
羅

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 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

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題