使用Powershell图片转PDF

原创于 2021-11-04 23:48:11 发布 · 591 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#powershell

办公自动化专栏收录该内容

3 篇文章

订阅专栏

这是一个使用PowerShell脚本将图片转换为PDF的示例。脚本通过Microsoft Excel的COM对象将图片插入到工作簿中，然后保存为PDF格式。转换过程中，图片会被调整为适合一页，并保持原始宽高比。

#set-ExecutionPolicy RemoteSigned
function PicToPDF ($Path)
{
#$pic_path = "C:\Users\Lenovo\Pictures\Saved Pictures\badio.jpg"
[system.reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null
$pic = New-Object System.Drawing.Bitmap($Path)

$day = Get-Date -Format "yyyyMMdd"
$pdfName = $Path -match "(?<=(\\))[^\\]*?(?=(\.))"
$file_name = $Matches[0]
$whole_pdf_name = "C:\Users\Lenovo\Desktop\" + $file_name + $day + ".pdf"

$xl = New-Object -ComObject Excel.Application -Property @{
    Visible = $false
    DisplayAlerts = $false
}

$xlFixedFormat = "Microsoft.Office.Interop.Excel.xlFixedFormatType" -as [type]

$wb = $xl.WorkBooks.Add()
$sh = $wb.Sheets.Item(‘Sheet1’)
$sh.PageSetup.FitToPagesWide = 1
$sh.PageSetup.FitToPagesTall = 1
$sh.Shapes.AddPicture($Path,1,0,0,0, $pic.Width, $pic.Height)
$wb.Saved = $true
$wb.ExportAsFixedFormat($xlFixedFormat::xlTypePDF, $whole_pdf_name, $IgnorePrintAreas::$false)
echo "Done"
}

PicToPDF("C:\Users\Lenovo\Pictures\Saved Pictures\153_171115103009_2.jpg")