www.5213.net > EXCEL用VBA如何实现循环更换表中的图片,并更改成指定尺寸

EXCEL用VBA如何实现循环更换表中的图片,并更改成指定尺寸

图片层代码 Private Sub UserForm_Click() Do While i < 100 a = i Mod 5 Image1.Picture = LoadPicture("C:\Documents and Settings\xd\My Documents\My Pictures\" & a & ".jpg") '加载图片 Delay 5 i = i + 1 Loop End Sub 模块层代码 Private

类似的程序我做过.将代码放在这里,你自己学习吧. Sub 删除表格()''Dim mysApplication.DisplayAlerts = FalseFor Each mys In Worksheets If mys.Name <> "TOOLS" And mys.Name <> "模板" Then mys.Delete End IfNextApplication.

'将下代码放入E301.xls模块中 Sub InsertPicture() Dim MyShape As Shape Dim r As Integer Dim PicPath As String With Sheet1 For Each MyShape In .Shapes If MyShape.Type = 13 Then MyShape.Delete End If Next Rows("1:10").Select

首先选中需要复制成图片的单元格区域,然后按住Shift键依次选择“编辑→复制图片”命令,接着弹出“复制图片”窗口,选择“图片”单选项后点击“确定”按钮,这时就将选定的表格区域复制成图片了.最后复制到目标只需直接选择“粘贴”命令即可(或者按Shift键再选择“编辑→粘贴图片”命令).我们还可以将其在Word中进行粘贴.你可以把以上过程录制成宏来运行!

有一个想法 就是 你能不能 通过VBA来插入 图片 可以手动选择的……这样合并在一起的过程 是可以实现你的目的的………………用如下三行代码 试一下看看能不能达到你的目的…………把这段代码 关联到一个按钮上 你就可以通过这个按钮来插入图片了……Application.Dialogs(342).Show '插入图片的对话框Selection.ShapeRange.Height = 100 '设置刚插入的图片的高度Selection.ShapeRange.Width = 100 '设置刚插入的图片的宽度你还可以进一步 设置 对齐 以及插入的位置等……自行研究一下吧……

选中图片代码:ActiveSheet.Shapes("Picture 1").Select 调整图片大小代码: Selection.ShapeRange.IncrementLeft 132# Selection.ShapeRange.IncrementTop 54.75 Selection.ShapeRange.ScaleWidth 3.1, msoFalse, msoScaleFromTopLeft

是更换图片吗?可以的.

excel做不到在粘贴的时候就自动缩小,但你可以在全部粘贴完成后,按下列步骤将图片一次性缩小:按F5Alt+sAlt+benter右键点击被选中的图片,在下拉菜单选择“大小和属性”在弹出的窗口设置你需要的大小,或按比例缩小

可以用伪随机数吗?就是说你设定一个种子数,比如23,然后加上一个整数后求模,用求模运算的结果决定输出,这也是一个类似于随机数的算法,但是有循环周期,所以是伪随机数

完成!

网站地图

All rights reserved Powered by www.5213.net

copyright ©right 2010-2021。
www.5213.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com