シート上に保存した画像をファイルとして開く

Sub シート上の図形を画像として保存したフォルダを開く()

    ‘————————————
    ‘テンポラリフォルダに保存する
    ‘パスの取得
    ‘————————————
    Dim strPath As String
    Dim FSO As Object

    Set FSO = CreateObject(“Scripting.FileSystemObject”)

    strPath = FSO.GetSpecialFolder(2)
    Set FSO = Nothing

    ‘————————————
    ‘このブックを名前を付けて保存する
    ‘シートを新規ブックにコピー
    ‘(VBプロジェクト付きで保存するとメッセージが出るので)
    ‘————————————
    Dim Wb As Workbook
    Dim Wsh As Worksheet
    Dim strZipName As String

    ‘保存するときのZIP(ブック)名
    strZipName = VBA.Format(Now, “yyyymmdd-hhmmss”) & “.zip”

    Set Wsh = ThisWorkbook.Worksheets(“sheet1”)
    Wsh.Copy
    Set Wb = ActiveWorkbook

    ‘保存
    Wb.SaveAs strPath & “\” & strZipName
    Wb.Close

    ‘————————————
    ‘ZIPで保存したフォルダ(media)を開く
    ‘————————————
    Dim sh As Object
    Set sh = CreateObject(“WScript.Shell”)
    sh.Run “explorer.exe /n,/e,/select,” & strPath & “\” & strZipName & “\xl\media\”

    Set sh = Nothing

    MsgBox “終了” & vbCrLf & “エクスプローラが開きます”, vbInformation

End Sub