Office学习社区 › Office入门和提高 › 随机出现两个点，并显示点的位置，然后用线段把两个点连接起来

yekaiyekai 发表于 2019-6-21 02:33:01

提供个示例下载吧

maxzhang88 发表于 2019-6-21 02:33:05

你插3个按钮和8个标签，改下控件名就能用了
我不喜欢伸手党，花了一个多小时，现在连个谢谢都没收到

leoyoung 发表于 2019-6-21 03:11:52

刚刚看了代码，弄懂了一点。我来试试看。非常感谢！！！

m3110800 发表于 2019-6-21 03:29:07

3个按钮、4个标签，经尝试已成功，还有几行代码不理解，研究中。非常感谢

倩女幽魂 发表于 2019-6-21 03:40:01

1.MySlideIndex = SlideShowWindows(1).View.Slide.SlideIndex
Set MySlide = ActivePresentation.Slides(MySlideIndex)
这两行代码是什么意思

2.msoShapeOval，这是用椭圆表示点，如果用圆的话，是不是msoShapeCircle？如何设置填充颜色，边框有无及颜色。

3.Set MyLine = MySlide.Shapes.AddLine(X1, Y1, X2, Y2)，这一行是画线，如何设置线型和颜色
MyLine.Line.DashStyle = msoLineSysDash，这一行代码是什么意思

4.For i = MySlide.Shapes.Count To 1 Step -1MySlide.Shapes.Count是统计图形的个数，如果只统计椭圆点，怎么写
If MySlide.Shapes(i).Type = 1 Or MySlide.Shapes(i).Type = 9 Then MySlide.Shapes(i).DeleteType是类型，类型1和9指什么，2-8又指哪些啊
Next

mscwfq 发表于 2019-6-21 03:45:12

为了解决这个问题我已经花了很多时间了，建议你自己思考，或者问别人，再问我我要钱的

查看完整版本: 随机出现两个点，并显示点的位置，然后用线段把两个点连接起来