word用vba批量导入图片文件时，怎样保留图片原有大小，而不是统一固定大小跪谢！下为您原来提供的代码

试试把

MyPicWidth = c 2835

MyPicHeight = (c 2835 / WidthNum) MyPicHeight

改为

'MyPicWidth = c 2835

'MyPicHeight = (c 2835 / WidthNum) MyPicHeight

假设你要汇总的两个文件名分别是Axls 和Bxls;且ID 和分数的列分别为A列和B列

1在这个文件夹里新建一个工作薄并且把名称改为Cxls

2打开新建的这个工作薄,在工作表名称标签上点击鼠标右键选查看代码,粘贴下面代码到打开的VBA编辑窗口然后关闭VBA编辑窗口按ALT+F8选中该宏执行

代码如下:

Sub 汇总()

Dim dic, iPath, arr

Dim Sht As Worksheet

arr = Split("A,B", ",") '要汇总的文件名(现在的文件名分别是A和B)

Set dic = CreateObject("ScriptingDictionary")

iPath = ThisWorkbookPath

For i = 0 To UBound(arr)

WorkbooksOpen iPath & "\" & arr(i) & "xls"

For Each Sht In Workbooks(arr(i) & "xls")Sheets

irow = ShtRange("A65536")End(xlUp)Row

For j = 1 To irow

dic(ShtCells(j, 1)Value) = dic(ShtCells(j, 1)Value) + ShtCells(j, 2)Value

Next

Next

Workbooks(arr(i) & "xls")Close

Next

Range("A1")Resize(dicCount, 1) = WorksheetFunctionTranspose(dickeys)

Range("B1")Resize(dicCount, 1) = WorksheetFunctionTranspose(dicitems)

End Sub

以上就是关于word用vba批量导入图片文件时，怎样保留图片原有大小，而不是统一固定大小跪谢！下为您原来提供的代码全部的内容，包括:word用vba批量导入图片文件时，怎样保留图片原有大小，而不是统一固定大小跪谢！下为您原来提供的代码、如何用VBA实现如下功能 读文件 + 简易计算 在线等。谢谢！、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！