タイトル : シートのActiveXコントロールの内容が表示されない。 投稿日 : 2020/05/13(Wed) 20:02 投稿者 : 悩めるEXCELマクロ士
いつもお世話になっています。 早速ですが質問です。 当方では、現在EXECLを使用してSQLServerからデータを取得。 それをシートに出力してグラフを作成してそれをプリントスクリーンして グラフを画像としてEXCELに添付して提出帳票を作成するアプリを作成しています。 サーバからのデータの取得、シートへの貼り付けグラフの表示、各計算処理など うまくいったのですが、グラフをプリントスクリーンして画像として シートに張り付けるところがうまくいかず悩んでいます。 うまくいかない現象としては、プリントスクリーンをしてクリップボードから 画像をシート張り付けると、シート内にあるActiveXコントロールのラベルに 入力した値が表示されないという現象です。 プログラムとしては、 Sub SheetPrint() WorkSheets("Sheet1").Active WorkSheets("Sheet1").Range("A1:R37").Select WorkSheets("Sheet1").Range("A1:R37").CopyPicture appearance:=xlScreen, Format:=xlPicture Worksheets("Sheet2").Paste Range("B2") End Sub というような、プログラムを組んでいます。 この状態で、張り付けられた画像を見ると、グラフは表示されているんですが ActiveXのラベルの内容は空白なってしまっています。 あだ、Subでブレイクをして1ステップずつ送りながら行うとActiveXの内容も表示された 画像が張り付くので、タイミングかと思い、「.Active」のあとに 「Application.Wait [Now()] + 5000 / 86400000」を入れて5秒待ちを作ってみたのですが 状況は変わりませんでした。 どのような解決策があるか、どなたかご教授いただけると助かります。 よろしくお願いします。 |