• ベストアンサー

VBAのコメントの長さ設定

Excel2010のVBAで、コメントの高さと幅を設定するプログラムコードが分かりません。 どなたかご存じの方いないでしょうか？ 回答よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • DreamyCat
  • ベストアンサー率56% (295/524)
回答No.2

わかりやすいように不必要な大きさにしてみました。 'Range("A2").AddComment With Range("A2").Comment.Shape .Width = 250 .Height = 150 End With

miya_HN
質問者

お礼

回答ありがとうございます。 「Comment.Shape」を使えばコメントの高さと幅を設定できるんですね。 ありがとうございました。

その他の回答 (1)

  • soixante
  • ベストアンサー率32% (401/1246)
回答No.1

ここの一番下に、「コメントの高さと幅」って書いてありました。 http://www.eurus.dti.ne.jp/yoneyama/Excel/vba/vba_comment.html お探しのものですか？

miya_HN
質問者

お礼

回答ありがとうございます。 URLに書いていますね。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • VBAによるコメントの余白設定

    Excel2010のVBAでコメントの余白の長さを設定したいのですが、やり方が分かりません。 どのようにするのか、プログラムコードを教えてください。 回答よろしくお願いします。

  • Excel　VBA　コメントに関して

    Excel2003を使用しています。 VBAになるのかは定かではないのですが Excelの機能に「コメント」を付ける機能がありますよね セルに対してカーソルを合わすことで表示される黄色い枠のコメントのことをしるす。 これをオートシェイプやコマンドボタン等のオブジェクトに対してカーソルを合わせることに よってこのコマンドがなんなのかのコメントを付けたい場合Excelでできるのでしょうか? もし、できるとしたならばどのようにしたらいいのでしょうか? VBAを使いできるのか、もっと楽な方法があるのか 教えて頂きたいのです。 ご教授願えないでしょうか、宜しくお願いします(人>д<*ペコ謝) ※補足※ コマンドボタンやオートシェイプでテキストを入れてしまうとボタン自体が入れる文字数によって大きくなってしまうのでできるだけ小さいボタンを作り補足事項やヘルプとして使用したい。 コマンドボタンにはVBAプログラムを組むとして、オートシェイプならば、図形にマクロを登録するとして、カーソルを合わした時のみコメントを表示させたいということです。

  • Excel-VBA コメントの書式設定

    Excel-VBA コメントの書式設定 コメントの書式設定をExcel-VBAで定義したい。 従い「マクロの記録」を実行して下記のソースコードを取得しました。 これを実行すると次の実行エラーが発生しました!? ★正常に動作させるソースコードの事例をいただければ幸いです。 ご指導よろしくお願いいたします。 実行時エラー'438' オブジェクトは、このプロパティまたはメソッドをサポートしていません。 Sub Macro1() ' 処理:マクロの記録 ' 目的:「コメントの挿入」と「コメントの書式設定」をする。 Range("A2").Select Range("A2").AddComment Range("A2").Comment.Visible = False Range("A2").Comment.Text Text:="コメント" & Chr(10) & "今日は良いお天気ですね。" '▽次で実行エラーが起きる!? Selection.ShapeRange.ScaleWidth 1.58, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.49, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9 Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 141.75 Selection.ShapeRange.Width = 283.5 Range("A1").Select End Sub

  • VBAでコメントにセルの値の設定

    VBAでコメントにセルの値や変数の値を設定する処理はあるのですか？ よろしくお願いします。

  • エクセルのマクロからコメントの書式設定をしたいのですが・・・。

    VBA初心者です。よろしくお願いします。昨日も同じ質問をしたのですが、誰にもお答えいただけなかったので、もう一度・・・。 今、プロテクトのかかっているシート上で、マクロからコメント作成、編集ができるようなプログラムを作っているのですが、マクロからコメントの書式設定ダイアログを表示させて、ユーザーが任意に書式を設定できるような仕様にしたいのですが、どうしたらよいのでしょうか? 詳しい方、よろしくお願いいたします。

  • Excel2007VBAでコンパイルエラー

    EXCEL2000ので動作していたVBAのプログラムをEXCEL2007で動かしたら、CHRの命令でコンパイルエラー、プロジェクトまたはライブラリーが見つかりませんとメッセージが出てしまいます。 （Excel2007の設定は初期値のままです） CHRの命令行をコメントにして先へ進ませると今度は、Leftの命令で同じエラーが発生します。 又、VBAProjectのコンパイルを実行するとFormatの命令で同じエラーがでます。 何かアドインのモジュール設定が足りないと思っていますが、何が足らないのかわかりません。 ご存知の方は解決方法を教えて下さい。 宜しくお願い致します。

  • 《エクセル2000VBA》「コメント」を抽出することはできますか

    こんにちは、VBAを勉強中の者です。 任意のシート（20000行×30列くらいでデータが入っています）に入力されているコメントのみを別シートに抽出し、一列に一覧表示させたいです。 自分でも調べてみて、とりあえずコメントは操作可能ということはわかったのですが、 ・任意のシートの中身を行と列の二次元に検索していく方法（特定の行のみ検索するコードはあちこちで見受けられるのですが） ・拾ったコメントの内容を別シートに書き込むのを「高速で」行う方法（その都度書き込んでアクティブセルを移動させる…というのならわかるのですが、データの量が膨大なので、これだと途方もない時間がかかってしまいそうです） 以上の方法がわからないでいます。 また、抽出したコメントは、配列関数を使えば処理が早いのでしょうか。 となると、書き込む件数が何件発生するかわからない場合はどうするのだろうか、と行き詰まっています。 （さらに贅沢を言いますと、コメントが入っていたセル番号が隣の列に入っているといいな、という希望もありますが、これはあくまで第二希望です） VBA勉強中ですので、パーフェクトに動くコードでなくても構いません。断片的なヒントでも大歓迎です。 VBAに詳しい方、ご教示頂けますでしょうか。

  • エクセルＶＢＡのコメント設定について教えていただけないでしょうか。

    エクセルＶＢＡのコメント設定について教えていただけないでしょうか。 セルK2に、「8/13」など、日付を投入します。 セルL2には「=DAY(K2)」と投入して、日付だけを表示させています。 セル11行目から下方向に、1日から31日まで表示されています。 セルK2に表示された日付を元に、M列の対象となる日付に以下の ようにコメントを入れようと思っています。 K2が13日でしたら、M23にコメントを入れたいと思っています。 「13(金)　　　　　　　　←←改行する。 通知予定」 次のようにマクロを設定しましたが、(1)曜日の情報をコメント欄に入れることがで きません。 また、(2)コメントの書式設定がうまくいきません。 コメント欄を「ＭＳゴシック」のフォントで「１４ポイント」のサイズで 「自動サイズ調整」をしたいのですが、コメントが挿入されたセルの書式が変更さ れてしまいます。 曜日の情報入れて、コメントの書式を設定する方法を教えていただけないでしょうか。 --------------------------------------------------------------------- Sub コメント書式設定2() Dim 通知日 As Long 通知日 = Range("l2").Value Cells(通知日 + 10, 13).Select ActiveCell.AddComment Text:=通知日 & Chr(10) & "通知予定" With Selection.Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "太字" .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With End Sub

  • Excel VBAで1行に2つのコードを書くことはできないのでしょうか?

    JavaScriptなどではa=1;b=2;と書けばよいのですが VBAの場合は1行に2つのコードを書くことはできないのでしょうか? 使用OS：Windows XP 使用ソフト：Microsoft Excel 2003 ご存知の方がおられましたらご回答をよろしくお願いします。

  • Excel2007のVBAで、ワードアートの塗りつぶしの「透過性」を変更する方法を教えてください！

    VBA初心者です。 趣味でMicrosoftExcel2003のVBAをやっていたのですが、Excel2007でVBAのコードの動作確認をした際に、ワードアートの単色塗りつぶしの透過性を変更するコードが使えませんでした。 Excel2003では Activesheet.Shapes(図形の名前).Fill.Transparency = 値 で出来たのですが、2007では「ワードアートが入っている図形」の塗りつぶしに反映されてしまいます。 また、2007ではマクロの記録を使ってもワードアート等の設定が記録されないので、困っています。 そこで質問です。 Excel2007で、ワードアートの塗りつぶしが単色の場合の『塗りつぶしの透過性』をVBAで設定する場合のコードを教えてください。 ご存知の方、どうか回答を宜しくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する