① excel 閲岀殑镓规敞镙囱瘑镣圭紪杈戠殑镞跺欐绘槸鏄剧ず鍒板緢杩灭殑鍦版柟锛屾庝箞鍙浠ヨ╂壒娉ㄦ樉绀哄湪鍗曞厓镙艰竟涓
鐢╒BA锛屾寜涓 ALT+F11 杩涘叆VBA缂栬緫鍣锛屾柊寤轰竴妯″潡锛屽皢涓嫔垪浠ｇ爜澶嶅埗鍒版ā鍧椾腑锛 x0dx0ax0dx0aSub 璁剧疆镓规敞() '璁剧疆褰揿墠娲诲姩宸ヤ綔琛ㄤ腑镓链夋壒娉ㄧ殑浣岖疆鍜屽ぇ灏廫x0dx0aDim Cmt As Comment x0dx0aDim HW As Double x0dx0aHW = 0.6 x0dx0aFor Each Cmt In ActiveSheet.Comments x0dx0aCmt.Shape.Left = Cmt.Parent.Left + Cmt.Parent.Width + 11.25 x0dx0aIf Cmt.Parent.Row = 1 Then x0dx0aCmt.Shape.Top = Cmt.Parent.Top + 1.5 x0dx0aElse x0dx0aCmt.Shape.Top = Cmt.Parent.Top - 7.5 x0dx0aEnd If x0dx0ax0dx0aCmt.Shape.TextFrame.AutoSize = True x0dx0aCmt.Shape.Height = Sqr(Cmt.Shape.Height * Cmt.Shape.Width * HW) x0dx0aCmt.Shape.Width = Cmt.Shape.Height / HW x0dx0aNext x0dx0aEnd Sub x0dx0ax0dx0a璇存槑锛氭壒娉ㄥぇ灏忔槸鎸夎嚜锷ㄨ皟鏁村ぇ灏忓悗镄勯溃绉锛岄吨鏂颁互0.6镄勯珮瀹芥瘆璁＄畻銆 x0dx0ax0dx0a鍒囨崲鍒 Excel ,鎸 ALT+F8 杩愯屼笂闱㈢殑瀹忓嵆鍙銆