[已解决]如何设置工作表单元格网格线为红色

蓝黑白

<p>看一下是怎么回事</p>

春风得意-007

学习

www96

[em02][em02]

yaoxuejian

[em02]

ymping1205

<p>喵喵看</p>

liuhao_goody

<p>也来学学</p>

BAIXINGR

<p>看下</p>

Leeqplus

Set myDocument = Worksheets(1)<br/>With myDocument.Shapes<br/>.AddShape msoShapeOval, 180, 200, 280, 130<br/>&nbsp;&nbsp;&nbsp; With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .TextFrame.Characters.Text = "My oval"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; With .Callout<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Accent = True<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Border = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End With<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End WithEnd With

flying33200

<p>哎，我都会回贴了，怎么次次都要回复啊，有时很浪费时间啊。</p>

highness

dfg