ppt中用随机数字控制图形大小

ppt中用数字控制图形的高矮 大小

首先，要插入一个文本框控件（textbox1），设置好相关属性；

其次，插入一个图片控件image1），设置好相关属性；

然后双击文本框控件，输入如下：

Private Sub TextBox1_Change() \\当文本框内的内容发生变化时候

Image1.Height = Val(TextBox1.Text) * 10 \\图形的高度=文本框中数字x10

Image1.Top = 540 - Val(TextBox1.Text) * 10 \\图形顶端距离=540-图形的高度

End Sub

或者

Private Sub TextBox1_Change() \\当文本框内的内容发生变化时候

Image2.Width = 10 + Val(TextBox5.Text) * 30 \\图形左边位置+向右延伸出来的大小

End Sub

这个可以控制图形宽窄

以上两条结合起来 就可以随意控制图形的大小位置了 我是用来做随机柱状图表（一个横向 一个纵向两个图表 在两个页面输入随机数字 柱状图随机变化）

本文来源：https://www.wddqw.com/doc/b74f190676c66137ee0619c0.html