今天分享如何利用PPT绘制一些复杂形状，这里以波浪线为例，主要通过VBA代码实现，具体步骤如下：

首先是给出问题，可以直接让其给出画波浪线的VBA代码，也可给出大致方案。这里首先是让其通过曲线修改顶点位置实现。

给出的代码不一定可以运行，可以继续提问，直到得出只想要的效果。

最终得出以下代码，可以正常运行，得到的波浪线也符合自己需求

代码说明：

  1. 波浪数量控制：

  • 新增变量numWaves，用于指定波浪的数量（例如numWaves = 5表示绘制 5 个波浪）。

  • 根据波浪数量和幻灯片宽度动态计算波长 (wavelength = slideWidth / numWaves)。

波浪形状计算：

  • 使用Sin函数生成波浪形状，并通过numWaves控制波浪的数量。

  • y = amplitude * Sin(2 * 3.14159 * (i - 1) / (numPoints - 1) * numWaves)。

点数分配：

  • 每个波浪分配 20 个点（numPoints = numWaves * 20），确保波浪线平滑。

幻灯片宽度：

  • 使用ActivePresentation.PageSetup.slideWidth获取幻灯片的宽度，确保波浪线适应幻灯片。

示例效果：

  • 如果设置numWaves = 5，代码会在幻灯片上绘制一条包含 5 个波浪的波浪线。

  • 如果设置numWaves = 10，代码会绘制一条包含 10 个波浪的波浪线。

参数调整：

  • 波浪数量：修改numWaves的值。

  • 波浪高度：修改amplitude的值。

  • 波浪线平滑度：修改numPoints的值（例如numPoints = numWaves * 30）。

  • 使用方法：

  1. 打开PPT，按Alt + F11打开VBA编辑器。

  2. 在VBA编辑器中，插入一个新模块（Insert > Module）。

  3. 将上述代码粘贴到模块中。

  4. 修改numWaves的值，设置你想要的波浪数量（例如numWaves = 5）。

  5. 运行代码（按F5或点击运行按钮）。

可以根据自己需求修改代码，得到不同效果的波浪线

PPT绘制任何形状均可通过VBA代码实现，通过Deepseek可以帮助我们轻松搞定，有兴趣的同学可以尝试。

由于公众号改版，为防错过更多资源，给我们加个星标吧

说明：来源：科研小哥，如需转载，请在开头注明来源。仅供学习交流分享使用，版权归原作者所有，文章只代表作者本人观点，不代表公众号立场。如有侵权，请联系我们（Hilib oy）删除，感谢支持！也欢迎有兴趣的朋友分享、投稿、申请转载、互开长白。

了解更多信息

↓↓↓欢迎点赞和再看