ワークシート内のチャートのダブルクリックイベント

Question

ワークシートを挿入し、そのワークシートに4つのグラフを挿入するマクロがあります。これらの図表は、そのワークシート内に4分の1の画面が表示されるような大きさで配置されています。

ここでは、ユーザーがこれらのグラフのいずれかをダブルクリックする方法を理解しようとしています。グラフをワークシートのフルサイズに拡大します。再度ダブルクリックすると、クォータサイズに戻ります。

私の最大の障害は、問題のチャートを処理する方法とダブルクリックイベントです。私はワークシート上で動作させることができました。しかし、チャートは当初はそこにいないので、やりにくいようです。ポジショニングとサイジングは簡単です。同様の問題についてウェブ上で助けがありますが、あなたのチャートはチャートでありワークシートではないと仮定しています。

ご提案は大変ありがとうございます。

Answer 1

各グラフのコードを記述することができます。 あなたのグラフはChart1, Chart2, Chart3, Chart4としましょう。 Subを作成してグラフのサイズを変更し、BeforeDoubleClickイベントごとに呼び出すことができます。

Private Sub Chart1_BeforeDoubleClick(ByVal ElementID As Long, _ 
ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean) 
    Call ChartSize (Chart1) 
end Sub 

希望します。

Answer 2

チャートのサイズではなく、ワンクリックでウィンドウのズームを変更するのは簡単です。上記のようにダブルクリックすると修正できます。ズーム値を変更する必要があるかもしれません。 既にチャートを設定している場合は、測位のセル参照があります。ユーザーが次回コードをクリックしたときに再度実行されるように、グラフの選択を解除する必要があります。それ以外の場合は、再度選択する前にチャートを手動でクリックする必要があります。モジュール内

：

Sub Setup() 
    ActiveSheet.ChartObjects("Chart 1").Activate 
    Selection.OnAction = "Chart1_Click" 
    ActiveSheet.ChartObjects("Chart 2").Activate 
    Selection.OnAction = "Chart2_Click" 
    ActiveSheet.ChartObjects("Chart 3").Activate 
    Selection.OnAction = "Chart3_Click" 
    ActiveSheet.ChartObjects("Chart 4").Activate 
    Selection.OnAction = "Chart4_Click" 
End Sub 

Sub Chart1_Click() 
    ChartZoom ("Chart 1") 
End Sub 

Sub Chart2_Click() 
    ChartZoom ("Chart 2") 
    ' you could select a cell under the chart here; easier than in the sub below 
End Sub 

Sub Chart3_Click() 
    ChartZoom ("Chart 3") 
End Sub 

Sub Chart4_Click() 
    ChartZoom ("Chart 4") 
End Sub 

Sub ChartZoom(chartRef As String) 
    ActiveSheet.ChartObjects(chartRef).Select 'Activate 
    If ActiveWindow.Zoom = 100 Then 
     ActiveWindow.Zoom = True 
     ' Insert code here to select a range underneath chartRef 
    Else 
     If ActiveWindow.Zoom <> 100 Then 
      ActiveWindow.Zoom = 100 
      Range("A1").Select ' <-- Brings back the scroll position to top left 
     End If 
    End If 
End Sub