Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
创新互联秉承实现全网价值营销的理念，以专业定制企业官网，成都网站设计、做网站，小程序开发，网页设计制作，手机网站制作设计，营销型网站建设帮助传统企业实现“互联网+”转型升级专业定制企业官网,公司注重人才、技术和管理，汇聚了一批优秀的互联网技术人才,对客户都以感恩的心态奉献自己的专业和所长。
Dim oWord As Word.Application
Dim TempX As Double
Dim TempY As Double
Dim TempR As Double
TempX = Ox + (x1 * 10)
TempY = Oy - (y1 * 10)
TempR = r * 10
DialogDisplay = False
If (TempX - TempR Ox - Lx /掘唤 2) Or (TempX + TempR 运消 Ox + Lx / 2) Or (TempY - TempR Oy - Ly / 2) Or (TempY + TempR 判悄凯 Oy + Ly / 2) Then
DialogDisplay = True
MsgBox("超出了边界！", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "提示")
DrawFlag = False
DrawDot = Nothing
Exit Function
End If
DrawDot = oWord.ActiveDocument.Shapes.AddShape(9, TempX - TempR, TempY - TempR, 2 * TempR, 2 * TempR)
DrawFlag = True
End Function
RDGp()在vba中没有这个函数，这个应该人定义的函数的，set gp = RDGp()很明显就是将gp设置这个函数。如果这个是类模块的，就要新建对象，在又对象调用函数。不过从这句话中，这个春慎应该是模块里面的自定亮早义的函数。具体的还要看代码结构。改成VB点虐 写法是扒键敬一样的
VB是是一种编程语言。VBA主要VB是office上的应用，VB点虐 可以说是VB的最新版本，如果就是业余或者刚入门的话，语法什么的和VB几乎完全一样。只是语法上面，要求比VB要求规范，比方说VB6.0里面Text1="1"读的出来，VB点虐 就会报错，一定要textbox1.text="1"才可以。对于初学者来说，VB点虐 这种规范要求有益无害。
如果你咐扮想学的话，最好学VB点虐 ，一来功能强，二来，能帮助你学习基本概念。比方说我学VB的时候，什么是类一点概念都没有。都是学了点虐 之后才懂得。三来么，学会了VB点虐 .学其他都很方便的。
但是如果就是用用excel的话么，VBA就可以了。不过说句老实话，光学VBA的话，很多东西理解起来比较难。我是最后学VBA的，看了书一个礼拜之后就能随便运蚂编了。但是书上很多代码的，我旁简埋猜如果没有VB基础，估计看不懂
