WPSjs宏自动插入图片并调整大小

WPSjs宏自动插入图片并调整大小
lazyFa
混合正方体，空间传送、连接技术工程师
关注他
6 人赞同了该文章
需求
一个工地工友说他要收集工地好多图片，需要插入到表格，并且调整大小。

很麻烦，想自动插入并且自动按照单元格调整图片大小。

演示效果
实现代码
function 批量插入图_选中法(){result = MsgBox("请先选中要插入图片的单元，已选中请点击【是】，未选中点击【否】",jsYesNo,"图片插入前提示")if (result ==6)
{
let pic_pick = Application.FileDialog(msoFileDialogFilePicker) pic_pick.AllowMultiSelect = true//
pic_pick.InitialFileName = "C:\*.*"
if (pic_pick.Show()==-1)
{
var pic_geted =pic_pick.SelectedItems
Debug.Print(pic_geted.Item(1))
for (var counter=1 ;counter<=pic_geted.Count;counter++) {
//------------------------插入图片
ActiveCell.Select()
y = ActiveCell.Top
x = ActiveCell.Left
h = ActiveCell.Height
w = ActiveCell.Width
pic_Name = pic_geted.Item(counter)
let obj = ActiveSheet.Shapes.AddPicture(pic_Name, msoFals e, msoTrue, x, y, w, h)
obj.Placement = xlMoveAndSize
obj.LockAspectRatio = false
Cells(ActiveCell.Row + 1, ActiveCell.Column).Select()
//------------------------------------------//
Debug.Print(pic_geted.Item(counter)) }
}
obj = null
pic_pick = null
}}。