Sub t() Dim c As Comment For Each c In ActiveSheet.Comments With c .Shape.Top = .Parent.Top - 8 '右上角位置 .Shape.Left = .Parent.Left 8 '左下角位置 .Shape.Width = .Parent.Width * 2 '寬度 .Visible = False '不可見 End With NextEnd Sub
本站是提供個人知識琯理的網絡存儲空間,所有內容均由用戶發佈,不代表本站觀點。請注意甄別內容中的聯系方式、誘導購買等信息,謹防詐騙。如發現有害或侵權內容,請點擊一鍵擧報。
0條評論