conan5373回答ポイントなし

1188873818

エクセルのVBAについての質問です。（完全な初心者で申し訳ありません）
上のURLの回答者の方のVBA（※以下に再掲）をコピーアンドペーストで使わさせていただいていたのですが、
・コメント＝不可視化
にしようと、あれこれいじっていたのですが、うまくできません。

※VBA再掲
Sub hoge()
Dim SelCel As Range '選択セル
Application.DisplayCommentIndicator = xlCommentAndIndicator
ActiveSheet.Cells.SpecialCells(xlCellTypeComments).Select 'シート内のコメントが設定されているセルを選択
For Each SelCel In Selection '選択セルにてループ
SelCel.Comment.Shape.Select True
With Selection.Font
.Name = "ＭＳ明朝"
.Size = 10
End With
With Selection
.AutoSize = True
End With
Next
End Sub

どなたか、上のVBAでコメントを不可視化する方法をお教えいただけないでしょうか？
お手数をおかけし申し訳ありません。
何卒ご教授ください。

ログインして回答する

ベストアンサー

きゃづみぃ2011/09/26 21:26:59

SelCel.Comment.Shape.Select True
この行の次に

SelCel.Comment.Visible = False
を入れればいいです。

スター
- conan5373 2011/09/26 21:33:45
  
  ご回答いただき、ありがとうございます。
  大変恐縮なのですが、VBAを実行したところ、
  実行時エラー'438'
  オブジェクトは、このプロパティまたはメソッドをサポートしていません。
  というエラーがでて、
  デバックボタンを押すと
  With Selection
  .AutoSize = True
  の部分が黄色網掛けで表示されます。
  こちらの操作方法が悪いのでしょうか？
  せっかくお答えいただいたにも関わらず、誠に申し訳ありません

その他の回答

きゃづみぃ2011/09/26 21:53:45

その黄色の箇所は別にいらないと思うからコメントにすればいいです。
コメントの仕方がわからなければ削除でもOK

スター
- conan5373 2011/09/26 22:00:24
  
  ありがとうございます。大変助かりました！

http://q.hatena.ne.jp/1188873818

ベストアンサー

きゃづみぃ2011/09/26 21:26:59

conan5373 2011/09/26 21:33:45

その他の回答

きゃづみぃ2011/09/26 21:53:45

conan5373 2011/09/26 22:00:24

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版