エクセルシート上にある図形やグラフが印刷されない

エクセルマクロ・VBA達人養成塾 小川です。

http://www.exvba.com/vb/index.php

今日は、外部研修に参加してきたのですが。
研修先（表参道某所）についてから気がついたのですが、なんと、サイフを忘れたよう。

仕方ないので、昼食は、受講生仲間の女の子に払ってもらいました ヾ(´ー｀)ﾉ ヾ(´ー｀)ﾉ ヾ(´ー｀)ﾉ

しかし、問題なのは、家に帰ってしらべてみても、やっぱりサイフがないこと。。。

昨日、会社に置きぱなしにしてしまったのだろうか…。明日、会社に行って、それでもサイフが見つからなかったらどうしよう（汗

そんなわけで。

今日は、エクセルのテクニックのお話。

さいきん、Twitterで、以下の趣旨の質問をもらっていた。

最初はグラフの一部だけが印刷されないということかと思ったのだが。
その後のやりとりで曰く。

とのことだった。

ということで、現象を再現できるファイルをメールで送ってもらい、調査してみた。

その結果、分かったこと。

このグラフの「印刷対象とするかどうか」を指定するチェックボックスの状態に問題があった。

この設定は、以下の画像の要領でチェックします。

調べたい対象のオブジェクト（グラフや図形。ここでは図形）を右クリック。
「グラフエリアの書式設定」を選択。

「グラフエリアの書式設定」といタイトルのダイアログが表示される。
ここで、「プロパティ」というタブ内の、「オブジェクトを印刷する」のチェックで設定を変更する

オートシェイプ等が印刷できないときは、上の図のように、右クリックメニューで「オートシェイプの書式設定」を選択。あとは同様。

ついでに、上記の操作を、「エクセルマクロの自動記録」をしながらやってみた。
すると、以下のコードができた。

Sub Macro1()
    ActiveSheet.ChartObjects(“Chart 113″).Activate
    ActiveChart.ChartArea.Select
    With Sheets(“Sheet1″).DrawingObjects(“Chart 113″)
        .Placement = xlMoveAndSize
        .PrintObject = False
    End With
    Sheets(“Sheet1″).DrawingObjects(“Chart 113″).Locked = True
End Sub

ということで。

エクセルシート上のオブジェクトについて印刷する/印刷しないの設定を切り替えるには、
.PrintObject というプロパティの値を True/False の間で切り替えればよいようです。

と、いうことで。

ご質問がある方は、このブログ左にある、「ＦＡＱフォーム」からもどうぞ。
以下のフォームです。
https://24auto.biz/exvba/touroku/thread11.htm

それでは、またね。アディオス ヾ(´ー｀)ﾉ