質問編集履歴

追記

2020/05/12 11:33

投稿

vvvpp

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,3 +1,13 @@
+### まえがき
+文字数制限にひっかかってしまったため、**一部のコードを消去しました。**
+消去したコードにつきましては、**編集履歴** の方からご確認いただけます。
 ### 前提・実現したいこと
@@ -322,33 +332,301 @@
 ```VBA
-Private Sub TargetChart_MouseDown(ByVal Button As Long, ByVal Shift As Long _
-                                , ByVal x As Long, ByVal y As Long)
-    Dim xlApp As Excel.Application: Set xlApp = GetObject(, "Excel.Application")
-    Dim chart_ As Chart: Set chart_ = xlApp.ActiveChart
-    Dim object_ As Object: Set object_ = chart_.Parent
-    Dim long_ As Long: long_ = object_.Index
-    Dim chartObject_ As ChartObject: Set chartObject_ = sheet_.ChartObjects(long_)
-    Dim string_ As String: string_ = chartObject_.Name
-    Debug.Print string_ ' エラー発生
-    Set chartObject_ = Nothing
-    Set object_ = Nothing
-    Set chart_ = Nothing
-    Set xlApp = Nothing
+編集履歴をご参照ください。
+```
+**結果は変わらず、同じエラーが発生しました。**
+次に、【sheet_.ChartObjects(ActiveChart.Parent.Index).Name】
+に原因があるのかを調べるため、次のコードを実行してみました。
+```VBA
+編集履歴をご参照ください。
+```
+**結果は問題なし。**
+【sheet_.ChartObjects(ActiveChart.Parent.Index).Name】
+でもエラーが発生しないということは、**【MouseDown イベント】に問題がある** と考え、
+そちらに注目し、原因の追究をすることにしました。
+（【試したこと（2）】に続きます）
+### 試したこと（2）
+まずは、【MouseDown イベント】以外のイベントだとどうなるのか、
+検証してみました。
+ただし、**【空のActiveChart】という前提** に合わないイベントは、
+検証するイベントから除いています。
+結果は次の通りです。
+|イベント|Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name|Debug.Print ActiveChart.Parent.Name|
+|:--:|:--:|:--:|
+|MouseDown |エラー発生|問題なし|
+|BeforeDoubleClick |エラー発生|問題なし|
+|Activate |問題なし|問題なし|
+|MouseMove |問題なし|問題なし|
+|Resize |問題なし|問題なし|
+検証の結果、**【MouseDown イベント】だけではなく、**
+**【BeforeDoubleClick イベント】でも同じエラーが発生する** ことを確認できました。
+そこで、次は【BeforeDoubleClick イベント】から、次のコードを検証してみました。
+```VBA
+編集履歴をご参照ください。
+```
+**結果は、【MouseDown イベント】と同様のエラーが発生しました。**
+（【試したこと（3）】に続きます）
+### 試したこと（3）
+Chart クリック → 適当なセルをクリック
+というのを繰り返した結果、**エラーが発生しませんでした。**
+これに注目し、**イベント間に何かしらの処理を挟んでみる** ことにしました。
+次は、検証用のコードとなります。
+```VBA
+編集履歴をご参照ください。
+```
+上記コードを実行し、Chart クリック → sheet_.Range("F2").Select
+というのを繰り返した結果、**エラーが発生しませんでした。**
+検証を深めるため、上記コードを次のように変更してみました。
+```VBA
+編集履歴をご参照ください。
+```
+上記コードを実行し、Chart クリック → sheet_.Range("F2") = boolean_
+というのを繰り返した結果、**エラーが発生しました。**
+（【試したこと（4）】に続きます）
+### 試したこと（4）
+次に、Chart 1 クリック → Chart 2 クリック
+というのを繰り返した結果、**エラーが発生しませんでした。**
+```VBA
+編集履歴をご参照ください。
+```
+これに注目し、次のコードを検証してみました。
+```VBA
+編集履歴をご参照ください。
+```
+上記コードを実行し、
+Chart 1 クリック → sheet_.ChartObjects("Chart 2").Chart.ChartArea.Select
+というのを繰り返した結果、**エラーが発生しませんでした。**
+（Chart 一つに使用できるメモリの量が決められていて、そのメモリが、
+【セル や 他のChart の Select】が行われるまで解放されない…ということでしょうか？）
+（【試したこと（5）】に続きます）
+### 試したこと（5）
+その他、次のことを試してみましたが、
+**結果は変わらず、同じエラーが発生するだけでした。**
+- 【ハードウェアグラフィックスアクセラレータを無効にする】を選択する
+- 違う種類のChart（円・折れ線）を使用する
+- book の修復
+- アドイン の無効化
+- Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name
+を、Sub プロシージャ に移し、イベントから、そのプロシージャを呼び出すようにする
+- **ステップイン実行**【イベント処理終了時（End Sub 到達後、[F8 キー]押下）、エラー発生】
+（これにより、処理の終了前に次の処理が開始される → 処理が追いつかなくなってエラー
+…という可能性もない、と考えてよさそうです。**正直、一番ありえそうな原因だったのですが…**）
+同様の症状について探していたところ、次の質問が見つかりました。
+[Excel vba でメモリが不足しています。っと表示されて処理が完了できない。](https://teratail.com/questions/158078)
+エラーメッセージ はドンピシャだったのですが…
+私は、【カメラ 機能】も【リンクされた図】も【数式】も【名前の定義】も
+使用（追加）していません。
+（そもそも、Excelファイル新規作成 → 空のChartを挿入 → 上記ソースコード を記入
+…しか行っていないファイルのため、肥大化とかはしていない…はずです。
+念のため、上の手順で同じファイルを作成してみましたが、何も変わりませんでした）
+また、次の環境で試してみたところ、**エラーは発生しませんでした**。
+Windows 7 Home Premium
+メモリ：8.00 GB
+Excel 2010 64bit（14.0.7237.5000）
+### 追記：試したこと（6）
+sazi 様 からのご指摘を受け、次のコードの検証を行いました。
+```VBA
+Public sheet_ As Worksheet
+Public flag_ As Boolean
+Private class_ As New TestChart
+Private class2_ As New TestChart _
+Sub Set_Data()
+    Set sheet_ = ThisWorkbook.Sheets("Main")
+    Set class_.TargetChart = sheet_.ChartObjects("グラフ 3").Chart
+    Set class2_.TargetChart = sheet_.ChartObjects("グラフ 1").Chart
+    flag_ = False
@@ -358,39 +636,41 @@
-**結果は変わらず、同じエラーが発生しました。**
-次に、【sheet_.ChartObjects(ActiveChart.Parent.Index).Name】
-に原因があるのかを調べるため、次のコードを実行してみました。
-```VBA
+```VBA
+Private Sub TargetChart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long,
+ByVal Arg2 As Long, Cancel As Boolean)
-Sub test()
+    DoEvents
-    Dim ii As Long
-    sheet_.ChartObjects("Chart 1").Select
-    For ii = 1 To 1000
+    If flag_ = False Then
-        Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name ' 問題なし
+        flag_ = True
+        Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name ' エラー発生
+        flag_ = False
+        DoEvents
-    Next ii
+    End If
@@ -398,409 +678,83 @@
 ```
-**結果は問題なし。**
-【sheet_.ChartObjects(ActiveChart.Parent.Index).Name】
-でもエラーが発生しないということは、**【MouseDown イベント】に問題がある** と考え、
-そちらに注目し、原因の追究をすることにしました。
-（【試したこと（2）】に続きます）
-### 試したこと（2）
-まずは、【MouseDown イベント】以外のイベントだとどうなるのか、
-検証してみました。
-ただし、**【空のActiveChart】という前提** に合わないイベントは、
-検証するイベントから除いています。
-結果は次の通りです。
-|イベント|Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name|Debug.Print ActiveChart.Parent.Name|
-|:--:|:--:|:--:|
-|MouseDown |エラー発生|問題なし|
-|BeforeDoubleClick |エラー発生|問題なし|
-|Activate |問題なし|問題なし|
-|MouseMove |問題なし|問題なし|
-|Resize |問題なし|問題なし|
-検証の結果、**【MouseDown イベント】だけではなく、**
-**【BeforeDoubleClick イベント】でも同じエラーが発生する** ことを確認できました。
-そこで、次は【BeforeDoubleClick イベント】から、次のコードを検証してみました。
-```VBA
-Private Sub TargetChart_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long,
-ByVal Arg2 As Long, Cancel As Boolean)
-    Dim xlApp As Excel.Application: Set xlApp = GetObject(, "Excel.Application")
-    Dim chart_ As Chart: Set chart_ = xlApp.ActiveChart
-    Dim object_ As Object: Set object_ = chart_.Parent
-    Dim long_ As Long: long_ = object_.Index
-    Dim chartObject_ As ChartObject: Set chartObject_ = sheet_.ChartObjects(long_)
-    Dim string_ As String: string_ = chartObject_.Name
-    Debug.Print string_ ' エラー発生
-    Set chartObject_ = Nothing
-    Set object_ = Nothing
-    Set chart_ = Nothing
-    Set xlApp = Nothing
-End Sub
-```
-**結果は、【MouseDown イベント】と同様のエラーが発生しました。**
-（【試したこと（3）】に続きます）
-### 試したこと（3）
-Chart クリック → 適当なセルをクリック
-というのを繰り返した結果、**エラーが発生しませんでした。**
-これに注目し、**イベント間に何かしらの処理を挟んでみる** ことにしました。
-次は、検証用のコードとなります。
-```VBA
-Private nextTime As Date
-Sub test2()
-    nextTime = DateAdd("s", 1, Now)
-    Application.OnTime nextTime, "test2" ' 1秒ごとに処理する
-    ' 処理
-    sheet_.Range("F2").Select ' 問題なし
-End Sub
-Sub test2終了()
-    On Error Resume Next
-    Application.OnTime nextTime, "test2", , False
-End Sub
-```
-上記コードを実行し、Chart クリック → sheet_.Range("F2").Select
-というのを繰り返した結果、**エラーが発生しませんでした。**
-検証を深めるため、上記コードを次のように変更してみました。
-```VBA
-Private boolean_ As Boolean
-Private nextTime As Date
-Sub test2()
-    nextTime = DateAdd("s", 1, Now)
-    Application.OnTime nextTime, "test2" ' 1秒ごとに処理する
-    ' 処理
-'    sheet_.Range("F2").Select ' 問題なし
-    sheet_.Range("F2") = boolean_ ' エラー発生
-    boolean_ = Not boolean_ ' 反転させる
-End Sub
-Sub test2終了()
-    On Error Resume Next
-    Application.OnTime nextTime, "test2", , False
-End Sub
-```
-上記コードを実行し、Chart クリック → sheet_.Range("F2") = boolean_
-というのを繰り返した結果、**エラーが発生しました。**
-（【試したこと（4）】に続きます）
-### 試したこと（4）
-次に、Chart 1 クリック → Chart 2 クリック
-というのを繰り返した結果、**エラーが発生しませんでした。**
-```VBA
-Public sheet_ As Worksheet
-Private class_ As New TestChart
-Private class2_ As New TestChart
-Sub Set_Data()
-    Set sheet_ = ThisWorkbook.Sheets("Main")
-    Set class_.TargetChart = sheet_.ChartObjects("Chart 1").Chart
-    Set class2_.TargetChart = sheet_.ChartObjects("Chart 2").Chart
-End Sub
-```
-これに注目し、次のコードを検証してみました。
-```VBA
-Private nextTime As Date
-Sub test2()
-    nextTime = DateAdd("s", 1, Now)
-    Application.OnTime nextTime, "test2" ' 1秒ごとに処理する
-    ' 処理
-'    sheet_.Range("F2").Select ' 問題なし
-'    sheet_.Range("F2") = boolean_ ' エラー発生
-'    boolean_ = Not boolean_ ' 反転させる
-    sheet_.ChartObjects("Chart 2").Chart.ChartArea.Select ' 問題なし
-End Sub
-Sub test2終了()
-    On Error Resume Next
-    Application.OnTime nextTime, "test2", , False
-End Sub
-```
-上記コードを実行し、
-Chart 1 クリック → sheet_.ChartObjects("Chart 2").Chart.ChartArea.Select
-というのを繰り返した結果、**エラーが発生しませんでした。**
-（Chart 一つに使用できるメモリの量が決められていて、そのメモリが、
-【セル や 他のChart の Select】が行われるまで解放されない…ということでしょうか？）
-（【試したこと（5）】に続きます）
-### 試したこと（5）
-その他、次のことを試してみましたが、
-**結果は変わらず、同じエラーが発生するだけでした。**
-- 【ハードウェアグラフィックスアクセラレータを無効にする】を選択する
-- 違う種類のChart（円・折れ線）を使用する
-- book の修復
-- アドイン の無効化
-- Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name
-を、Sub プロシージャ に移し、イベントから、そのプロシージャを呼び出すようにする
-- **ステップイン実行**【イベント処理終了時（End Sub 到達後、[F8 キー]押下）、エラー発生】
-（これにより、処理の終了前に次の処理が開始される → 処理が追いつかなくなってエラー
-…という可能性もない、と考えてよさそうです。**正直、一番ありえそうな原因だったのですが…**）
-同様の症状について探していたところ、次の質問が見つかりました。
-[Excel vba でメモリが不足しています。っと表示されて処理が完了できない。](https://teratail.com/questions/158078)
-エラーメッセージ はドンピシャだったのですが…
-私は、【カメラ 機能】も【リンクされた図】も【数式】も【名前の定義】も
-使用（追加）していません。
-（そもそも、Excelファイル新規作成 → 空のChartを挿入 → 上記ソースコード を記入
-…しか行っていないファイルのため、肥大化とかはしていない…はずです。
-念のため、上の手順で同じファイルを作成してみましたが、何も変わりませんでした）
-また、次の環境で試してみたところ、**エラーは発生しませんでした**。
-Windows 7 Home Premium
-メモリ：8.00 GB
-Excel 2010 64bit（14.0.7237.5000）
+検証の結果、**エラーが発生しました。**
+ステップイン実行 でもエラーが発生していることもあり、
+イベント処理中に他のイベントが邪魔をしている、のではなく、
+イベント終了時の処理 のどこかに**【エラー発生の原因】**が
+ひそんでいるのではないか、と疑っております。
+（【試したこと（5）】のステップイン実行でも、
+　End Sub 到達後の[F8 キー]押下により、エラーが発生しています）
+（【追記：試したこと（7）】に続きます）
+### 追記：試したこと（7）
+クリックに間をおくとどうなるか、検証してみました。
+・【 1 分 間隔 で Chart を クリック 】
+|クリック回数|物理メモリの量|
+|:--:|:--:|
+|0|37,316 K|
+|1|35,972 K|
+|2|35,524 K|
+|3|35,516 K|
+|4(エラー発生)|34,348 K|
+・【 2 分 間隔 で Chart を クリック 】
+|クリック回数|物理メモリの量|
+|:--:|:--:|
+|0|32,672 K|
+|1|35,240 K|
+|2|34,320 K|
+|3|34,292 K|
+|4|34,364 K|
+|5|35,308 K|
+|6(エラー発生)|33,344 K|
+クリック間に時間をおいても、**エラーは発生しました。**
+また、メモリの方もよくわからない結果になってしまいました。
+メモリ不足のエラーの割に、メモリはあまり関係なかったりするのでしょうか？

【Markdown：表】の修正

2020/05/12 11:33

投稿

vvvpp

スコア4

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -246,7 +246,7 @@
 |クリック回数|物理メモリの量|
-|:--|:--:|
+|:--:|:--:|
 |0|38,112 K|
@@ -436,7 +436,7 @@
 |イベント|Debug.Print sheet_.ChartObjects(ActiveChart.Parent.Index).Name|Debug.Print ActiveChart.Parent.Name|
-|:--|:--:|--:|
+|:--:|:--:|:--:|
 |MouseDown |エラー発生|問題なし|