エクセルの画像を名前を付けて保存その2

エクセルの画像を名前を付けて保存

• 「エクセルの画像を名前を付けて保存」でVBAを使って、画像を保存しました。
• 一般的に使うにはアドインにするなどして、どのエクセルファイルからでも使えるようする必要があります。

PowerShellを使ってみた

PowerShellからエクセルブックにアクセスするときには、ブックが閉じている必要があると思っていたのですが、開いていても大丈夫でした。

画像の保存は、saggieさんの「PowerShellでクリップボードの画像をファイルに保存する」 を利用させていただきました。

使い方

• 画像の左上のすぐ上のセルにファイル名を入力します
• ブックはファイル名を付けて保存します
• 下記のPowershellのコードを実行します
• ブックフォルダに、画像が保存されます

制限事項、不具合

• ファイル名がないときには、セルのアドレスをファイル名としてPNG形式のファイルを保存します。
• 上書き確認はしません。
• ファイル名に拡張子がないときには、PNGにします。
• 拡張子が画像でないときには、そのままのファイル名で、おそらくPNGで保存されます。
• 画像が重なっていると、同一ファイル名で、上書きします。
• ファイルに使えない文字が含まれているときには、正常に動作しません。
• 変数の破棄をしていないので、もしかするとエクセルのプロセスが残ったままになるかもしれません。

ExcelToPictue.ps1

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." 
  }
}