① 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 榪愯屼笂闈㈢殑瀹忓嵆鍙銆