powershell 按原始大小导出excel中的图片

最新推荐文章于 2023-11-05 18:58:28 发布

shrekz

最新推荐文章于 2023-11-05 18:58:28 发布

阅读量967

点赞数 1

分类专栏： powreshell

本文链接：https://blog.csdn.net/shrekz/article/details/8974169

版权

powreshell 专栏收录该内容

34 篇文章 1 订阅

订阅专栏

本文介绍了一种使用PowerShell脚本将Excel表格中的图片批量转换为JPG格式的方法。该脚本通过调用Microsoft Office Interop Excel组件操作Excel应用程序，实现对图片的选择、尺寸调整及复制，并创建图表对象来粘贴图片，最后导出到指定路径。

摘要由CSDN通过智能技术生成

$excel = New-Object Microsoft.Office.Interop.Excel.ApplicationClass 
$table=$excel.Workbooks.open("C:\Users\admin\Desktop\test.xls")
$sheet=$table.Worksheets.Item(1)
#$excel.Visible=1
$copylist=$sheet.Pictures()
$excel.Application.DisplayAlerts = 0
foreach($copy in $copylist){
$name=$copy.name
#选中图片
$excel.ActiveSheet.Shapes.Range([Array]($name)).Select()
#重设图片为原始大小
$excel.Application.Selection.ShapeRange.ScaleWidth(1, [Microsoft.Office.Core.MsoTriState]::msoTrue , [Microsoft.Office.Core.MsoScaleFrom]::msoScaleFromTopLeft)
$excel.Application.Selection.Copy()
#新建一个chart
$Chart=$excel.ActiveSheet.ChartObjects().add(1000, 0, $excel.Application.Selection.Width, $excel.Application.Selection.Height).Chart
$Chart.Paste()
#导出成jpg文件
$null=$Chart.Export("C:\Users\admin\Desktop\test2\$name.jpg","JPG")   
$excel.ActiveSheet.ChartObjects().delete()
}
$excel.Application.Quit()
$excel.quit()