beauty.乔安什么意思:EXCEL VBA 文件夹操作——批量添加指定文件夹的图片
来源:百度文库 编辑:中财网 时间:2024/10/05 11:46:10
这个小程序的前提是指定的文件夹里装的全部是图片格式的文件
步骤1:
添加一个filesystemobject引用,工具--->引用---->microsoft scripting runtime
步骤2:
添加模块,并添加以下代码
Option Explicit
'设置单元格大小,单元格大小设置因人而异,设置数量要大于或者等于文件夹图片数量,这里范围为range("a1:h10")的单元格的大小
Sub changecell()
Dim r As Integer, c As Integer
For r = 1 To 10
For c = 1 To 8
With Sheet1.Cells(r, c)
.RowHeight = 100
.ColumnWidth = 15
End With
Next c
Next r
End Sub
'添加图像
Sub addpic()
Dim fso As Scripting.FileSystemObject
Dim file As file, files As files
Dim picname()
Dim i As Integer
Dim rng As Range
Set fso = New Scripting.FileSystemObject
Set files = fso.GetFolder("F:\My Pictures\").files
ReDim picname(files.Count)
For Each file In files
i = i + 1
picname(i) = file.Path
Next
i = 1
For Each rng In Sheet1.Range("a1:h10")
With rng
Sheet1.Shapes.AddPicture picname(i), msoTrue, msoTrue, .Left, .Top, .Width, .Height
End With
i = i + 1
Next
End Sub
'删除图像
Sub deletepic()
Dim i As Integer
For i = 1 To Sheet1.Shapes.Count
Sheet1.Shapes(1).Delete
Next
End Sub
程序效果:
Excel VBA
Excel VBA
vba excel
excel VBA小问题
EXCEL VBA 问题
excel VBA教程电子书
Excel VBA 高手进
EXCEL VBA 基础教程下载
Excel VBA中EXCEL对象?
通过excel的vba使用ado进行数据库操作一问
有没有通过excel vba操作word的书籍或资料?能否列出名称。
VBA如何批量更改控件的内容?
哪有买Excel 2003 VBA教程
谁有excel VBA教程
excel vba ontime的问题
作一个excel-VBA宏
excel中VBA的问题
excel VBA 下拉菜单制作
如何使用VBA启动Excel
excel 批量打印证书
如何批量合并文件夹
批量删除空文件夹
批量更改文件夹图标
如何批量建立文件夹