随机出现两个点，并显示点的位置，然后用线段把两个点连接起来

rgzyj@163.com

AS850629754 发表于 2019-11-7 15:05
里边坑太多，做了一个小时才做出来

提供个示例下载吧

AS850629754

rgzyj@163.com 发表于 2019-11-7 15:27
提供个示例下载吧

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

rgzyj@163.com

AS850629754 发表于 2019-11-7 15:30
你插3个按钮和8个标签，改下控件名就能用了
我不喜欢伸手党，花了一个多小时，现在连个谢谢都没收到

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

rgzyj@163.com

AS850629754 发表于 2019-11-7 15:30
你插3个按钮和8个标签，改下控件名就能用了
我不喜欢伸手党，花了一个多小时，现在连个谢谢都没收到

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

rgzyj@163.com

AS850629754 发表于 2019-11-7 15:30
你插3个按钮和8个标签，改下控件名就能用了
我不喜欢伸手党，花了一个多小时，现在连个谢谢都没收到

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 -1  MySlide.Shapes.Count是统计图形的个数，如果只统计椭圆点，怎么写
If MySlide.Shapes(i).Type = 1 Or MySlide.Shapes(i).Type = 9 Then MySlide.Shapes(i).Delete  Type是类型，类型1和9指什么，2-8又指哪些啊
Next

AS850629754

rgzyj@163.com 发表于 2019-11-7 15:59
1.MySlideIndex = SlideShowWindows(1).View.Slide.SlideIndex
Set MySlide = ActivePresentation.Slide ...

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