チャートを画像としてエクスポートすると、空のファイルが生成されることがあります
スプレンドニア
シート内のすべてのグラフをエクスポートしてから、Outlookを開いて添付するマクロを実行しています。ただし、チャートがエクスポートされるのは0KBであることが何度かあります（ファイルは作成されますが、画像は表示されません）。
しかし、それはすべてのチャートに起こるわけではありません。それらのほとんど、そして時にはそれは問題なくそれらすべてを生成します。（コードをステップバイステップで実行すると、すべてのチャートが問題なく生成されます。ステップバイステップで実行した後も、通常どおり実行するとすべてのチャートが生成されますが、ブックを閉じて再度開くと、同じ問題が発生します。 2つだけを生成し、残りは空のファイルです）
コードは次のとおりです。
Dim sheetNumber, Size, i As Integer
Dim chartNames(), FNames() As String
Dim objChrt As ChartObject
Dim myChart As Chart
'Activate Charts Sheet
Sheets("GRAFICAS").Activate
'Calculate Number of Charts in Sheet
Dim chartNumber
chartNumber = ActiveSheet.ChartObjects.Count
'Redimension Arrays to fit all Chart Export Names
ReDim chartNames(chartNumber)
ReDim FNames(chartNumber)
'Loops through all the charts in the GRAFICAS sheet
For i = 1 To chartNumber
'Select chart with index i
Set objChrt = ActiveSheet.ChartObjects(i)
Set myChart = objChrt.Chart
'Generate a name for the chart
chartNames(i) = "myChart" & i & ".png"
On Error Resume Next
Kill ThisWorkbook.Path & "\" & chartNames(i)
On Error GoTo 0
'Export Chart
myChart.Export FileName:=Environ$("TEMP") & "\" & chartNames(i), Filtername:="PNG"
'Save path to exported chart
FNames(i) = Environ$("TEMP") & "\" & chartNames(i)
Next i
何が足りないのですか？
スプレンドニア
結局のところ、これはExcel2010-2013ユーザーにとってはランダムなエラーです。しかし、もう少しグーグルした後。私はここで答えに遭遇しました
追加する必要があります
objChrt.Activate
チャートを選択した後。したがって、私の場合、最終的なコードは次のようになります。
For i = 1 To chartNumber
'Select chart with index i
Set objChrt = ActiveSheet.ChartObjects(i)
objChrt.Activate
Set myChart = objChrt.Chart
'Generate a name for the chart
chartNames(i) = "myChart" & i & ".png"
On Error Resume Next
Kill ThisWorkbook.Path & "\" & chartNames(i)
On Error GoTo 0
'Export Chart
myChart.Export FileName:=Environ$("TEMP") & "\" & chartNames(i), Filtername:="PNG"
'Save path to exported chart
'Application.Wait (Now + #12:00:01 AM#)
FNames(i) = Environ$("TEMP") & "\" & chartNames(i)
Next i
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
チャートが空白の.jpgファイルにエクスポートされることがあります
- 2
リストをエクスポートすると、空のCSVファイルが生成されます
- 3
ExcelチャートをSVGにエクスポートすると、空のファイルが作成されます
- 4
Reactエラー「コンポーネントが定義されているファイルからコンポーネントをエクスポートするのを忘れたか、デフォルトのインポートと名前付きのインポートを混同している可能性があります」
- 5
リクエストモジュールを使用してファイルをダウンロードすると、空のファイルが作成されます
- 6
HTMLファイルを自動生成してIEで開こうとすると、空白のページが表示されることがあります
- 7
Tkinterが「pyimage1」を開けませんでした：画像を開こうとすると、そのようなファイルまたはディレクトリがありません」というエラーが表示されます
- 8
Mayaからエクスポートすると、DAEファイルの画像テクスチャがAframeに表示されない
- 9
プログラムパスは、大文字と小文字が異なる文字をディスク上のファイルとして使用します。これにより、ブレークポイントがヒットしない可能性があります
- 10
ブレイザー：レイザーページを作成するとエラーが返されます：「このアイテムでサポートされているスキャフォールダーはありません」
- 11
エラーは、コンポーネントが定義されているファイルからコンポーネントをエクスポートするのを忘れたが、カスタムコンポーネントをエクスポートしていないことを示していました（React）
- 12
指定されたパスのファイルにすべての空のサブフォルダーを一覧表示するバッチスクリプト（ファイルが見つかりませんエラーとパスの問題を修正しようとしています）
- 13
d3で生成されたHTMLテーブルをCSVとしてエクスポートします（IEでも機能する必要があります）
- 14
アクセスしようとしているバケットは、指定されたエンドポイントを使用してアドレス指定する必要がありますAWSS3へのファイルのアップロード
- 15
アクセスしようとしているバケットは、指定されたエンドポイントを使用してアドレス指定する必要がありますAWSS3へのファイルのアップロード
- 16
シェルスクリプトを使用して.jpgファイルをコピーすると、「ファイルの入力ストリームを開くことができませんでした」というエラーが表示されます。
- 17
OkHttpを使用して複数の非同期リクエストを呼び出すと、コールバックが妨害されることがあります
- 18
Inkscape-ファイルをpdfにエクスポートすると、空のpdfファイル（SVGファイルを含む）が得られます
- 19
JSONファイルをwebpackの個別のチャンクとしてエクスポートする方法は？
- 20
Androidからファイルをインポートしているときに「このファイルをコピーする権限がありません」というメッセージが表示される
- 21
現在表示されているディレクトリ内のファイルとサブフォルダーにシリアル番号を付けることができるファイルマネージャーはありますか？
- 22
1行のタブ区切りデータを読み取り、「+」区切りにエクスポートすると、空のCSVファイルが生成されます
- 23
複数の8ビットサーフェスをロードした後、SDL2テクスチャが空になることがあります
- 24
キャッチされない参照エラーが発生する-JavaScriptファイルをインポートしようとするときに定義する必要はありません
- 25
JAXBを使用してオブジェクトをxmlファイルにマーシャリングしようとすると、「@ XmlRootElementアノテーションがありません」というエラーが表示されます。
- 26
レーキが中止されました！ロードするそのようなファイルはありません--validatable（-traceを指定してタスクを実行することで完全なトレースを参照してください）
- 27
Amazon lambdaでは、複数のサムネイルサイズを並行してサイズ変更すると、非同期がスローされますエラー：ストリームが空のバッファーを生成します
- 28
WKWebViewCALayerを画像にエクスポートすると空白の画像がエクスポートされます
- 29
Dart 2に移行すると、「インポートのチェックエラー」が発生します。これは、一部のテンプレートが生成されていないことを意味します。
コメントを追加