十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
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基础,估计看不懂