Range.AddComment のコンテキストでこのエラーに関する質問が見つからないようです
選択した行を通過し、各セルにコメントを追加するコードを使用しています。すでにコメントが含まれているセルにコメントを書き込むことがあります。既にコメントが含まれているセルで .AddComment を使用しているため、または範囲に関連するその他の理由でこのエラーが発生したかどうかはわかりません。
If IsDBNull(pobjComment) Then
mwksSheet.Range(strExcelCol(pintCol) & (pintRow + 1)).AddComment(Nothing)
Else
mwksSheet.Range(strExcelCol(pintCol) & (pintRow + 1)).AddComment(pobjComment)
End If
pobjComment は汎用オブジェクトです。私が使用する場合は、DataColumn の拡張プロパティから文字列値を渡します。
エラーは、pobjComment が実際に何かである場合に発生します。問題が他のコメントの上にコメントを追加している場合..最初に既存のコメントを削除するか、追加する前に値が同じかどうかを確認する必要があるかどうか疑問に思っています...