#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")
使用Powershell图片转PDF
最新推荐文章于 2022-01-24 14:40:22 发布