

お世話になります。
コメントがたくさんついているエクセルファイルがあるのですが、
なぜか引き出し線の位置がばらばらです。
普通に作成すると、コメント欄の左上から引き出し線がでると思いますが、
このファイルはコメント欄の四隅や、各辺の中央から引き出し線が出ており、
統一されていません。
これをVBAで左上に統一したいのですが、コマンドが判りません。
.adjustments.item は吹き出しのみ対象なのでしょうか、
エラーが出てうまくいきませんでした。
ご存知の方がいらっしゃいましたらよろしくお願いします。
No.3ベストアンサー
- 回答日時:
てきとーに書いてみたので、参考になれば。
書式コピーは最小限なので、必要に応じて追加してください。※注意:コメントは、CommentがShapeを操作する形で、2オブジェクトで構成されてます。Shape削除すると壊れるので、削除はCommentの方で。
'シート内のコメントを全て作り直し
For Each c In ActiveSheet.Comments
Set rng = c.Parent 'セルを取得
v = c.Visible
txt = c.Shape.TextFrame.Characters.Caption 'c.Textでもいい
x = c.Shape.Left
y = c.Shape.Top
h = c.Shape.Height
w = c.Shape.Width
With c.Shape.TextFrame '書式
imax = .Characters.Count
ReDim a(1 To imax, 1 To 10)
For i = 1 To imax
Set z = .Characters(i, 1).Font
a(i, 1) = .Characters(i, 1).Font.Size
a(i, 2) = .Characters(i, 1).Font.ColorIndex
a(i, 3) = .Characters(i, 1).Font.Bold
a(i, 4) = .Characters(i, 1).Font.Italic
Next
End With
c.Delete 'コメント削除
Set c = rng.AddComment(txt) '追加
c.Visible = v
c.Shape.Left = x
c.Shape.Top = y
c.Shape.Height = h
c.Shape.Width = w
With c.Shape.TextFrame '書式
For i = 1 To imax
Set z = .Characters(i, 1).Font
.Characters(i, 1).Font.Size = a(i, 1)
.Characters(i, 1).Font.ColorIndex = IIf(a(i, 2) = 74,xlAutomatic, a(i, 2))
.Characters(i, 1).Font.Bold = a(i, 3)
.Characters(i, 1).Font.Italic = a(i, 4)
Next
End With
Next
マイナーそうなコメントの編集にも関わらず、
プログラムまで作成頂き誠にありがとうございます。
最近勉強し始めたところなので、厄介そうだと思っていたところでした。
これで理解を深めていきたいと思います。
No.2
- 回答日時:
ぁぁ、図形変更がありましたね。
失礼しました。[図形描画ツールバー>オートシェイプの変更]を使うと、引き出し線が図形の中心から出るようになります。矩形に戻してもそのまま。ソレっぽいパラメータは無いようで、ちょっとお手上げ。直りません。。。
やはり、コメント作り直すしか・・・書式写すの面倒ですけど。
サンプルコードあった方がいいかな、、
http://msdn.microsoft.com/ja-jp/library/microsof …
度々ご回答ありがとうございます。
やはり無理なんですね。
やな予感が当たってしまったようです。
普通にセルのコピー → コメントの貼り付けでも
同じコメントが作成されるので、
一つ一つ内容をコピーして作り直す必要がありそうです。
とにかく、解決の糸口が見つかって助かりました。
No.1
- 回答日時:
コメントの引き出し線は「コメントが挿入されているセルの右上」に近い四隅から伸びます。
中央からは出ないので、吹き出しか、四角+矢印か・・・。混在してるのかな?.adjustments.item は吹き出し用です。
図形タイプによって操作方法が変わります。複数タイプ混在してる場合、統一するには図形の差し替え(作り直し)が必要になりますよ。
区別が曖昧なよーなので、まずはどんな図形が含まれているのか、よく確認した方がよさそうですね。。
ご回答ありがとうございます。
〉コメントの引き出し線は「コメントが挿入されているセルの右上」に近い四隅から伸びます。
〉中央からは出ないので、吹き出しか、四角+矢印か・・・。混在してるのかな?
ご指摘の件ですが、エクセルの2003を使用していますが、
セルの右上が赤三角の表示で、コメントの表示非表示で切り替わるので、
コメントで間違いないと思われます。
でも見るからに中央から出ている感じです。
どうやら、行列の挿入やセル幅の変更、フィルター表示等で
コメントの位置がずれてしまったので、VBAでコメントの位置やサイズ、フォント書式を
一括変更したところ、引き出し線の位置も変わったようです。
ただ、そのVBAには引き出し線の位置を変更するようなコマンドはなかったです。
お気づきの点がございましたら、よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数ブックの統合について Excel VBA 1 2022/05/13 09:48
- PowerPoint(パワーポイント) 2016EXCEL→2016PowerPointにコピペすると図形がゆがみます 5 2022/03/31 11:44
- メルカリ メルカリのコメント欄について 1 2022/12/30 00:10
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Word(ワード) Wordで破線をひくにはどうすれば良いのでしょうか。 5 2022/06/17 13:24
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- PHP コメント機能に返信欄を矢印で追加したい 1 2022/05/09 21:17
このQ&Aを見た人はこんなQ&Aも見ています
-
一回も披露したことのない豆知識
あなたの「一回も披露したことのない豆知識」を教えてください。
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
これ何て呼びますか
あなたのお住いの地域で、これ、何て呼びますか?
-
単二電池
あなたの家に何本ありますか?
-
自分用のお土産
国内や海外に旅行へ行った時、自分用のお土産ってどれくらい買いますか?
-
Excelでのコメント表示位置
Excel(エクセル)
-
Excel コメントの線が伸びたとき
Excel(エクセル)
-
エクセルでセルに挿入したコメントの表示位置について
Excel(エクセル)
-
-
4
Excelで、セルにメモが入力されているのですが、何故か矢印のみで、メモが表示されません。入力枠が全
デスクトップパソコン
-
5
Excel2003 の『コメント』の編集位置が、あらぬ位置に勝手に移動してしまう件で教えて下さい。
Excel(エクセル)
-
6
エクセル コメントの矢印線を太く出来ますか?
その他(Microsoft Office)
-
7
テキストボックスの引出線について(Excel07)
その他(Microsoft Office)
-
8
エクセルでコメント印刷すると、矢印の背景に黒■が表れます・・ 消したいのですが、方法がどうしてもわか
Excel(エクセル)
-
9
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
10
エクセル コメント表示位置・サイズについて
その他(コンピューター・テクノロジー)
-
11
エクセルで円グラフに引き出し線が出るものと出ないものがある
Excel(エクセル)
-
12
エクセルである行以下全部を削除する方法
Excel(エクセル)
-
13
【エクセル】コメントの初期(固定)書式を設定したい。
Excel(エクセル)
-
14
L字の線を描きたい
Excel(エクセル)
-
15
(文字(もじ)文字)のように、カッコの中にカッコを入れるのは「慣用」として正しいのか?
日本語
-
16
エクセルで複数のコメントのサイズ(形)を一括で変える方法
Excel(エクセル)
-
17
EXCELで日付と時刻が入ったセルを日付だけ取り出したい
Excel(エクセル)
-
18
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
19
○○様ほか3名は合計何名?
日本語
-
20
何時間 何分 何秒を記号で表すには?
その他(暮らし・生活・行事)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・【お題】甲子園での思い出の残し方
- ・【お題】動物のキャッチフレーズ
- ・人生で一番思い出に残ってる靴
- ・これ何て呼びますか Part2
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・あなたが好きな本屋さんを教えてください
- ・かっこよく答えてください!!
- ・一回も披露したことのない豆知識
- ・ショボ短歌会
- ・いちばん失敗した人決定戦
- ・性格悪い人が優勝
- ・最速怪談選手権
- ・限定しりとり
- ・性格いい人が優勝
- ・これ何て呼びますか
- ・チョコミントアイス
- ・単二電池
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・泣きながら食べたご飯の思い出
- ・一番好きなみそ汁の具材は?
- ・人生で一番お金がなかったとき
- ・カラオケの鉄板ソング
- ・自分用のお土産
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
エクセルのコメントの引き出し...
-
パワーポイントの表を左90度回...
-
エクセルやワードにおける図の作成
-
エクセルでの図形の書き方
-
写真を上下2枚ずつ均等に配置
-
パワーポイントで任意の文字に...
-
【大至急】パワーポイントで矢印
-
“ここにコピー”が一発で出ません。
-
【PowerPoint】塗り設定のコピ...
-
EXCELでも、WORD描画キャンバス...
-
Excel(エクセル) 2010で画像の...
-
パワーポイントで立体を作った...
-
PDFに挿入した図形を丸ごとコピ...
-
エキセルで2重マルを作るには?
-
Excelで挿入した矢印を平行に揃...
-
Excel2007で文字の下線の色を変...
-
オートシェイプで90度に折れ曲...
-
Excelファイルのサイズがなぜか...
-
実験操作のフローチャートの作り方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表を左90度回...
-
エクセルやワードにおける図の作成
-
エクセルのコメントの引き出し...
-
パワーポイントで立体を作った...
-
【PowerPoint】塗り設定のコピ...
-
写真を上下2枚ずつ均等に配置
-
エクセルでの図形の書き方
-
線の長さ
-
パワーポイント 接続ポイント解除
-
ワードで作図を作るときに,点...
-
Excel(エクセル) 2010で画像の...
-
Excelで挿入した矢印を平行に揃...
-
PDFに挿入した図形を丸ごとコピ...
-
EXCELでも、WORD描画キャンバス...
-
図形の移動をカーソルキー(矢...
-
Excel2007で文字の下線の色を変...
-
オートシェイプで90度に折れ曲...
-
オブジェクトをカウントする
-
エキセルで2重マルを作るには?
おすすめ情報