Excel 이미지를 다른 이름으로 저장

PowerShell을 사용해 보았습니다.

사용법

제한 사항, 결함

Set-StrictMode -Version Latest
Add-Type -AssemblyName System.Windows.Forms

# attach to excel file
$Excel = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Excel.Application')
$bookPath = $Excel.ActiveWorkbook.Path
if ($bookPath -eq "" ) {
  Write-Output ">>> save excel file first."
  exit
}

# save each file
$shapes = $Excel.ActiveWorkBook.ActiveSheet.Shapes
$shapes | ForEach-Object {

  # picture position check
  $address = $_.TopLeftCell.address()
  $isInRange = $False
  if ($_.TopLeftCell.row -gt 1) {
    $isInRange = $true
  }
  else {
    $address = $_.TopLeftCell.address
    Write-Output ">>> row of the picture at $address  must > 1."  
  }

  # file name check
  $fileName = ""
  $str_extension = ""
  if ($isInRange)
  {
    $fileName = $_.TopLeftCell.offset(-1, 0).text
    if ($fileName -ne "") {
      $str_extension = [System.IO.Path]::GetExtension($fileName)
      if ($str_extension -eq "") {
        $str_extension = ".png"
        Write-Output ">>> the picture at $address has no extension, so add .png."
        $fileName += $str_extension
      }
    }
    else { 
      $str_extension = ".png"
      $fileName = $address + $str_extension
      Write-Output ">>> the picture at $address has no file name. So name $fileName."
    }
  }

  # capture and save
  # https://qiita.com/saggie/items/44cb8b317fe0effa5891
  # picture save code is form above. 

  $_.CopyPicture(1, 2) # Appearance:=xlScreen, Format:=xlBitmap
  $clipboardImage = [Windows.Forms.Clipboard]::GetImage()
  if ([Windows.Forms.Clipboard]::ContainsImage() -and ($str_extension -ne ""))
  {
    $outputFilePath = Join-Path $bookPath $fileName
    $clipboardImage.Save($outputFilePath)
  }
  else {
    Write-Output ">>> the picture at $address has not captured." 
  }
}