Python – openpyxlでエクセルグラフや図形が消える問題の解決法

症状「openpyxlでエクセルのシートコピーしたときにグラフや図形や画像が消える」
win32com.client とエクセルVBAでの対処法
さいごに

症状「openpyxlでエクセルのシートコピーしたときにグラフや図形や画像が消える」

Pythonのopenpyxlでエクセル制御を行う際に、エクセルのシートをコピーすると、グラフ・画像・図形・テキストボックスが消えてしまう症状があります。

これはpythonの現仕様では避けられない症状のようです。

今回は、この問題の対処法として、
「pythonのwin32com.client とエクセルVBAを組み合わせる」ことで、エクセルのシートをコピーしてもグラフや図形が消えないようにpython制御するコードを作りました。

そのコードについて紹介させていただきます。

win32com.client とエクセルVBAでの対処法

今回解決のために行ったことは、
「エクセルシートコピーのプログラム命令を、pythonで実行するのではなく、エクセルVBAで実行すること」
です。

pythonによるエクセルVBAの実行は、「win32com.client」をimportすることで可能となります。

なぜこの対処法を行ったかについてですが、症状から考察しました。

今回の症状は、「pythonのopenpyxlでシートコピーする際に、シート内の文字や数字は問題なくコピーできるが、シート内のグラフや画像やテキストボックスなど、オブジェクトに関わるコピーはできない」というものでした。

つまり、openpyxlでは、オブジェクト入りのシートコピーはうまく対応できないということです。そこで、エクセルVBAでシートをまるごとコピーすれば、この問題を回避できるのではと考えたからです。

実際に、トライしてみたところ、グラフや画像は消えずに、エクセルシートコピーをすることができました。

そのときのPythonコードと、エクセルVBAコードの例を紹介させていただきます。

コード : Python

それでは、まずpythonのコード例をご紹介いたします。


import win32com.client
import os
filename  = r"C:\Users\mmiya\Desktop\format.xlsm"  
#元エクセル(フォーマット)
filename2 = r"C:\Users\mmiya\Desktop\test1.xlsm" 
#保存先エクセル

app = win32com.client.Dispatch("Excel.Application") 
#win32をappと定義
wb = app.Workbooks.Open(filename, ReadOnly=1) 
#元エクセル(フォーマット)を開く
app.Visible =  0  
#非表示 0、表示 1

sheet = wb.Worksheets("sheet1").Activate() 
#エクセルシート"sheet1"をアクティブ化
app.Application.Run('シート複製マクロ') 
#エクセルVBA「シート複製マクロ」を実行
app.DisplayAlerts = False 
#エクセルVBAでエラー発生しても、止まらずにそのまま進めるコード

wb.SaveAs(filename2)   #ファイル名指定保存
wb.Close                      
#wbを閉じる
app.Application.Quit()   
#アプリケーション終了

pythonでVBAを動かすため、openpyxlではなく、win32com.clientを用います。

エクセルシートをコピーする箇所は、app.Application.Run(‘シート複製マクロ’)です。ここでVBAを実行しています。

また、VBAは、エクセルファイルに事前に組み込んでおく必要があります。私の場合は、フォーマット用のエクセルファイルを準備しておき、そこにVBAを事前に作成しています。

つまり、下記のような手順です。

・フォーマット用のエクセルファイルを準備する
・フォーマット用のエクセルファイルに、VBA(“シート複製マクロ”)を作成しておく
・pythonで一連のプログラムになかで、エクセルシートコピーする際には、フォーマット用のエクセルファイルをwin32com.clientで開きにいく
・pythonのwin32com.clientで、エクセルVBA(“シート複製マクロ”)を実行し、シートコピーを行う
・pythonで、エクセルを別名で保存する

コード : エクセルVBA

次にエクセルVBAのコードについてです。

シートをコピーするだけのコードなので、非常に簡単なコードとなっています。

Sub シート複製マクロ()

Dim Sheetname As String　'シート名の定義
Sheetname = ActiveWorkbook.name 'アクティブエクセルシートを定義

Sheets(1).Activate　'シート1をアクティブ化
Sheets(1).Copy After:=Sheets(1)　'シート1の後ろに複製

End Sub

補足

エクセルのシートコピーもそうですが、例えば、エクセルのグラフ主軸の最大最小数値やグラフ自体のサイズを変更したいときも、私は、pythonではなく、VBAで念のために行っています。
理由はエクセルのシート内のオブジェクトに関わる制御については、pythonは苦手だと思うからです。

その場合は、下記のような順で動作するプログラムをつくっています。
・pythonのwin32com.clientで、最大値と最小値の必要数値などを、エクセルの任意セルに代入
・pythonのwin32com.clientで、エクセルVBA(“グラフ軸の変更マクロ”)を実行
・エクセルVBA(“グラフ軸の変更マクロ”)によって、エクセルの任意セルに代入された数値を読み取りにいき、グラフの軸数値を変更する
・pythonにてエクセルファイル保存