お世話になっております。 いつも参考にしています。 早速質問させていただきます。 ＜Excelのデータ＞ ExcelにSheet1、Sheet2があります。 Sheet1にはテキストのみ。 Sheet2には画像データが貼り付けてあります。 ＜Notesｽｸﾘﾌﾟﾄでの作業＞ @ExcelBookをNotesｽｸﾘﾌﾟﾄで読込 ASheet1をCSV形式でｸﾗｲｱﾝﾄﾛｰｶﾙに保存 BSheet2の画像をｸﾗｲｱﾝﾄﾛｰｶﾙに保存 と言うような処理を行おうと考えてますが、 Bの画像保存を簡略化できないか考えています。 Excelでは画像保存の機能がないため、（私がしらないだけ？） 現状では、「WEBﾍﾟｰｼﾞとして保存」⇒「再発行」の機能を使っていますが、サブフォルダが作成され、その中にイメージファイルが２つ（png,jpeg）とxml保存されてしまいます。 （ｻﾝﾌﾟﾙを参照してください） イメージデータのみを取り出して保存するには、どのようにしたらいいのでしょうか？（グラフの保存はできます） グラフの保存を流用して保存を行おうとすると、「プロパティが取得できません」のエラーとなります。 よろしくお願いします。 【現画像データ保存】 Set xlbook = GetObject(NameFile) Set xlsheet = xlbook.Sheets(2) With xlbook.PublishObjects("EXCEL_DATA") .HtmlType = xlHtmlStatic .Publish (False) .AutoRepublish = False End With 【グラフの保存】 '"グラフ１"という名前のグラフをExport Set excelsheet = excelApplication.Workbooks(1).Worksheets(1) Set objChart = excelsheet.ChartObjects("グラフ 1") objChart.Chart.Export "C:\Image_Data_A001.jpg", "JPG"