滔
2006-01-04
我想把一个文件夹中的图片按顺序插入到Excel表格中，因此录制了一段宏：我双击第一张图片插入到Excel表格中，并把它缩小放入相应的表格中，
Sub Macro1()
'
' Macro1 Macro
' 梦宇 记录的宏 2006-1-2
'
' 快捷键: Ctrl+a
'
ActiveSheet.Pictures.Insert("D:\My Documents\My Pictures\101MSDCF\" _
).Select
ActiveWindow.SmallScroll Down:=15
Selection.ShapeRange.ScaleWidth 0.17, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.17, msoFalse, msoScaleFromTopLeft
Selection.Copy
End Sub
但执行这个宏只能插入这一个图片，应该怎样修改，让它接着插入第二张、第三张图片....，好像是要改第一句中的引用位置改为相对引用位置，请指点如何修改。
1 每张图片都会改相同的文件名，最后用数字序号区别，For i = 1 To 3这里的3修改成图片数
2 放入的单元格位置也要有规律，这里修改位置Range("A" & i * 3)。Select
以下例子是把指定目录的T1。 bmp到 T3。bmp分别插入到A3 A6 A9
Sub 宏()
'
' 宏 Macro
' Billgates 记录的宏 2006-1-4
'
' 快捷键: Ctrl+a
'
For i = 1 To 3
fname = "C:\Documents and Settings\TOT\My Documents\My Pictures\T" & i & "。 bm...全部
1 每张图片都会改相同的文件名，最后用数字序号区别，For i = 1 To 3这里的3修改成图片数
2 放入的单元格位置也要有规律，这里修改位置Range("A" & i * 3)。Select
以下例子是把指定目录的T1。
bmp到 T3。bmp分别插入到A3 A6 A9
Sub 宏()
'
' 宏 Macro
' Billgates 记录的宏 2006-1-4
'
' 快捷键: Ctrl+a
'
For i = 1 To 3
fname = "C:\Documents and Settings\TOT\My Documents\My Pictures\T" & i & "。
bmp"
Range("A" & i * 3)。Select
ActiveSheet。Pictures。Insert(fname)。Select
Selection。
ShapeRange。ScaleWidth 0。19, msoFalse, msoScaleFromTopLeft
Selection。ShapeRange。ScaleHeight 0。
19, msoFalse, msoScaleFromTopLeft
Next i
End Sub。收起
