お世話になります。
コメントがたくさんついているエクセルファイルがあるのですが、
なぜか引き出し線の位置がばらばらです。
普通に作成すると、コメント欄の左上から引き出し線がでると思いますが、
このファイルはコメント欄の四隅や、各辺の中央から引き出し線が出ており、
統一されていません。
これを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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Excelでのコメント表示位置
Excel(エクセル)
-
Excel コメントの線が伸びたとき
Excel(エクセル)
-
エクセルでセルに挿入したコメントの表示位置について
Excel(エクセル)
-
-
4
エクセル コメントの矢印線を太く出来ますか?
その他(Microsoft Office)
-
5
テキストボックスの引出線について(Excel07)
その他(Microsoft Office)
-
6
Excel2003 の『コメント』の編集位置が、あらぬ位置に勝手に移動してしまう件で教えて下さい。
Excel(エクセル)
-
7
Excelで、セルにメモが入力されているのですが、何故か矢印のみで、メモが表示されません。入力枠が全
デスクトップパソコン
-
8
エクセルでコメント印刷すると、矢印の背景に黒■が表れます・・ 消したいのですが、方法がどうしてもわか
Excel(エクセル)
-
9
エクセル コメント表示位置・サイズについて
その他(コンピューター・テクノロジー)
-
10
エクセルで円グラフに引き出し線が出るものと出ないものがある
Excel(エクセル)
-
11
エクセルで複数のコメントのサイズ(形)を一括で変える方法
Excel(エクセル)
-
12
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
13
Excelのオートシェイプで2箇所折れ曲がった矢印
Excel(エクセル)
-
14
エクセルで表示形式の時刻の「0:00」を表示しないようにするには?
Excel(エクセル)
-
15
セル内の一部の文字だけをハイパーリンクに設定したい
Excel(エクセル)
-
16
エクセルでアルファベットか数値の判定をしたいのですが
Excel(エクセル)
-
17
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
-
18
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
-
19
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
20
エクセルで特定のセルを表示のみで印刷しない方法。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表を左90度回...
-
エクセルのコメントの引き出し...
-
エクセルやワードにおける図の作成
-
エクセルでの図形の書き方
-
EXCEL VBAでオートシェイプの重...
-
写真を上下2枚ずつ均等に配置
-
EXCELでも、WORD描画キャンバス...
-
オブジェクトをカウントする
-
Excel(エクセル) 2010で画像の...
-
パワーポイントで立体を作った...
-
【PowerPoint】塗り設定のコピ...
-
エキセルで2重マルを作るには?
-
【大至急】パワーポイントで矢印
-
線の長さ
-
【Word2000】丸付き数字と矢印...
-
パワーポイント 接続ポイント解除
-
変形したブロック矢印を書きた...
-
オートシェイプで90度に折れ曲...
-
Excelで挿入した矢印を平行に揃...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表を左90度回...
-
エクセルやワードにおける図の作成
-
エクセルのコメントの引き出し...
-
エクセルでの図形の書き方
-
パワーポイントで立体を作った...
-
【PowerPoint】塗り設定のコピ...
-
写真を上下2枚ずつ均等に配置
-
オブジェクトをカウントする
-
線の長さ
-
Excel(エクセル) 2010で画像の...
-
PDFに挿入した図形を丸ごとコピ...
-
EXCELでも、WORD描画キャンバス...
-
【大至急】パワーポイントで矢印
-
らせん スパイラル を書きたい。
-
ワードで作図を作るときに,点...
-
Excelで挿入した矢印を平行に揃...
-
エキセルで2重マルを作るには?
-
EXCEL VBAでオートシェイプの重...
-
“ここにコピー”が一発で出ません。
おすすめ情報