VBA セルのコメント操作3(コメントの表示、非表示・コメントの形を変える)



どうも、takaです(^^♪

さて、早くもコメントシリーズ3回目(笑)

今回は「コメントの表示・非表示の方法」とコメントの形(吹き出し)を変える方法をご紹介します(^^)/

コメントの表示・非表示の設定

通常コメントは、セルの上にマウスポインターがセル上に来ると表示されます、ですがマウスポインターが上にない状態でも常に表示するように設定することができるんです(^^♪

さて、VBAでコメントを常に表示するには、コメントを設定した後にCommnetオブジェクトの「Visible」プロパティをTrueにすることで可能になります。逆にFalseがデフォルトの状態になります。

コメントの吹き出しの形を変える方法

さて、デフォルトの設定ではコメントの吹き出しは資格が基本ですが、設定によってこの吹き出しを変更することが可能です。

デフォルト↓

下記のコードを実行するとこのように変更することが可能です。

吹き出しの位置が少しおかしいですね(笑)

コメントの吹き出しは基本オートシェイプを使用できますので下記の定数を指定する事で変更が可能です。

下記の表を参考にしてください(^^♪

殆どの図が設定可能ですが、すべての図が設定可能なわけではありません。

引用:MsoAutoShapeType 列挙 (Office)

定数説明
msoShapeRectangle1四角形。
msoShapeParallelogram2平行四辺形。
msoShapeTrapezoid3台形。
msoShapeDiamond4ひし形。
msoShapeRoundedRectangle5角丸四角形。
msoShapeOctagon6八角形。
msoShapeIsoscelesTriangle7二等辺三角形。
msoShapeRightTriangle8直角三角形。
msoShapeOval9楕円。
msoShapeHexagon10六角形。
msoShapeCross11十字形。
msoShapeRegularPentagon12ホームベース。
msoShapeCan13円柱。
msoShapeCube14直方体。
msoShapeBevel15斜角。
msoShapeFoldedCorner16メモ。
msoShapeSmileyFace17スマイル。
msoShapeDonut18ドーナツ。
msoShapeNoSymbol19禁止。
msoShapeBlockArc20アーチ。
msoShapeHeart21ハート。
msoShapeLightningBolt22稲妻。
msoShapeSun23太陽。
msoShapeMoon24月。
msoShapeArc25円弧。
msoShapeDoubleBracket26大かっこ。
msoShapeDoubleBrace27中かっこ。
msoShapePlaque28ブローチ。
msoShapeLeftBracket29左大かっこ。
msoShapeRightBracket30右大かっこ。
msoShapeLeftBrace31左中かっこ。
msoShapeRightBrace32右中かっこ。
msoShapeRightArrow33右向きブロック矢印。
msoShapeLeftArrow34左向きブロック矢印。
msoShapeUpArrow35上向きブロック矢印。
msoShapeDownArrow36下向きブロック矢印。
msoShapeLeftRightArrow37左右ブロック矢印。
msoShapeUpDownArrow38上下 2 方向ブロック矢印。
msoShapeQuadArrow394 方向ブロック矢印。
msoShapeLeftRightUpArrow40左、右、および上の 3 方向ブロック矢印。
msoShapeBentArrow4190°の曲線に続くブロック矢印。
msoShapeUTurnArrow42U 字型のブロック矢印。
msoShapeLeftUpArrow43左および上矢印の 2 方向ブロック矢印。
msoShapeBentUpArrow4490°の鋭角線に続くブロック矢印。既定では上向きです。
msoShapeCurvedRightArrow45右カーブ ブロック矢印。
msoShapeCurvedLeftArrow46左カーブ ブロック矢印。
msoShapeCurvedUpArrow47上カーブ ブロック矢印。
msoShapeCurvedDownArrow48下カーブ ブロック矢印。
msoShapeStripedRightArrow49先にストライプの付いた右向きのブロック矢印。
msoShapeNotchedRightArrow50右向きの V 字型矢印。
msoShapePentagon51ホームベース。
msoShapeChevron52山形。
msoShapeRightArrowCallout53右矢印の付いた吹き出し。
msoShapeLeftArrowCallout54左矢印の付いた吹き出し。
msoShapeUpArrowCallout55上矢印の付いた吹き出し。
msoShapeDownArrowCallout56下矢印の付いた吹き出し。
msoShapeLeftRightArrowCallout57左右矢印の付いた吹き出し。
msoShapeUpDownArrowCallout58上下のブロック矢印の付いた吹き出し。
msoShapeQuadArrowCallout594 方向矢印の付いた吹き出し。
msoShapeCircularArrow60180°の曲線に続くブロック矢印。
msoShapeFlowchartProcess61処理フローチャート記号。
msoShapeFlowchartAlternateProcess62代替処理フローチャート記号。
msoShapeFlowchartDecision63判断フローチャート記号。
msoShapeFlowchartData64データ フローチャート記号。
msoShapeFlowchartPredefinedProcess65定義済み処理フローチャート記号。
msoShapeFlowchartInternalStorage66内部記憶フローチャート記号。
msoShapeFlowchartDocument67書類フローチャート記号。
msoShapeFlowchartMultidocument68複数書類フローチャート記号。
msoShapeFlowchartTerminator69端子フローチャート記号。
msoShapeFlowchartPreparation70準備フローチャート記号。
msoShapeFlowchartManualInput71手操作入力フローチャート記号。
msoShapeFlowchartManualOperation72手作業フローチャート記号。
msoShapeFlowchartConnector73結合子フローチャート記号。
msoShapeFlowchartOffpageConnector74他ページ結合子フローチャート記号。
msoShapeFlowchartCard75カード フローチャート記号。
msoShapeFlowchartPunchedTape76せん孔テープ フローチャート記号。
msoShapeFlowchartSummingJunction77和接合フローチャート記号。
msoShapeFlowchartOr78論理和フローチャート記号。
msoShapeFlowchartCollate79照合フローチャート記号。
msoShapeFlowchartSort80分類フローチャート記号。
msoShapeFlowchartExtract81抜き出しフローチャート記号。
msoShapeFlowchartMerge82組み合わせフローチャート記号。
msoShapeFlowchartStoredData83記憶データ フローチャート記号。
msoShapeFlowchartDelay84論理積ゲート フローチャート記号。
msoShapeFlowchartSequentialAccessStorage85順次アクセス記憶フローチャート記号。
msoShapeFlowchartMagneticDisk86磁気ディスク フローチャート記号。
msoShapeFlowchartDirectAccessStorage87直接アクセス記憶フローチャート記号。
msoShapeFlowchartDisplay88表示フローチャート記号。
msoShapeExplosion189爆発。
msoShapeExplosion290爆発。
msoShape4pointStar914 ポイントの星。
msoShape5pointStar925 ポイントの星。
msoShape8pointStar938 ポイントの星。
msoShape16pointStar9416 ポイントの星。
msoShape24pointStar9524 ポイントの星。
msoShape32pointStar9632 ポイントの星。
msoShapeUpRibbon97リボンの端よりも上に中央面があるリボン。
msoShapeDownRibbon98リボンの端よりも下に中央面があるリボン。
msoShapeCurvedUpRibbon99上カーブリボン。
msoShapeCurvedDownRibbon100下カーブ リボン。
msoShapeVerticalScroll101縦巻き。
msoShapeHorizontalScroll102横巻き。
msoShapeWave103大波。
msoShapeDoubleWave104小波。
msoShapeRectangularCallout105四角形吹き出し。
msoShapeRoundedRectangularCallout106角丸四角形吹き出し。
msoShapeOvalCallout107円形吹き出し。
msoShapeCloudCallout108雲形吹き出し。
msoShapeLineCallout1109枠付きで、水平の吹き出し線の付いた吹き出し。
msoShapeLineCallout2110斜めの直線の付いた吹き出し。
msoShapeLineCallout3111折れ線の付いた吹き出し。
msoShapeLineCallout4112U 字型の吹き出し線分の付いた吹き出し。
msoShapeLineCallout1AccentBar113水平の強調線の付いた吹き出し。
msoShapeLineCallout2AccentBar114斜めの吹き出し線と強調線の付いた吹き出し。
msoShapeLineCallout3AccentBar115折れた吹き出し線と強調線の付いた吹き出し。
msoShapeLineCallout4AccentBar116強調線および U 字型の吹き出し線分の付いた吹き出し。
msoShapeLineCallout1NoBorder117水平線の付いた吹き出し。
msoShapeLineCallout2NoBorder118枠および斜めの吹き出し線のない吹き出し。
msoShapeLineCallout3NoBorder119枠および折れた吹き出し線のない吹き出し。
msoShapeLineCallout4NoBorder120枠線および U 字型の吹き出し線分のない吹き出し。
msoShapeLineCallout1BorderandAccentBar121枠付きで、水平の強調線の付いた吹き出し。
msoShapeLineCallout2BorderandAccentBar122枠、斜めの直線、および強調線の付いた吹き出し。
msoShapeLineCallout3BorderandAccentBar123枠、折れた吹き出し線、強調線の付いた吹き出し。
msoShapeLineCallout4BorderandAccentBar124枠線、強調線、および U 字型の吹き出し線分の付いた吹き出し。
msoShapeActionButtonCustom125既定の画像またはテキストのないボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonHome126ホーム] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonHelp127ヘルプ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonInformation128情報] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonBackorPrevious129戻る] または [ 前へ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonForwardorNext130進む] または [ 次へ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonBeginning131上旬] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonEnd132終了] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonReturn133戻る] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonDocument134文書] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonSound135サウンド] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeActionButtonMovie136ビデオ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。
msoShapeBalloon137吹き出し。
msoShapeNotPrimitive138サポートされていません。
msoShapeFlowchartOfflineStorage139オフライン記憶域フローチャート記号。
msoShapeLeftRightRibbon140両端に矢印が付いているリボン。
msoShapeDiagonalStripe141四角形から 2 つの三角形部分が断ち切られた形。斜線。
msoShapePie142円グラフの一片が切り取られた形。
msoShapeNonIsoscelesTrapezoid143台形。
msoShapeDecagon144十角形。
msoShapeHeptagon145七角形。
msoShapeDodecagon14612 角形。
msoShape6pointStar1476 ポイントの星。
msoShape7pointStar1487 ポイントの星。
msoShape10pointStar14910 ポイントの星。
msoShape12pointStar15012 ポイントの星。
msoShapeRound1Rectangle1511 つの角が丸くなっている四角形。
msoShapeRound2SameRectangle1521 辺を共有する 2 つの角が丸くなっている四角形。
msoShapeSnipRoundRectangle1541 つの角が欠けていて、1 つの角が丸くなっている四角形。
msoShapeSnip1Rectangle1551 つの角が欠けている四角形。
msoShapeSnip2SameRectangle1561 辺を共有する 2 つの角が欠けている四角形。
msoShapeRound2DiagRectangle157対角にある 2 つの角が丸くなっている四角形。
msoShapeSnip2DiagRectangle157対角にある 2 つの角が欠けている四角形。
msoShapeFrame158四角形の写真フレーム。
msoShapeHalfFrame159四角形の写真フレームを半分にした形。
msoShapeTear160水滴。
msoShapeChord161円と、円周上にある 2 点を円の内側を通って結ぶ直線。円と弦。
msoShapeCorner162四角形の欠落部分がある四角形。
msoShapeMathPlus163加算記号「+」。
msoShapeMathMinus164減算記号「-」。
msoShapeMathMultiply165乗算記号「x」。
msoShapeMathDivide166除算記号「÷」。
msoShapeMathEqual167等号「=」。
msoShapeMathNotEqual168不等号「≠」。
msoShapeCornerTabs169四角形の形に沿って配置された 4 つの直角三角形。4 つの切り取られた角部分。
msoShapeSquareTabs170四角形の輪郭を示す 4 つの小さな四角形。
msoShapePlaqueTabs171四角形の輪郭を示す 4 つの四分円。
msoShapeGear6172歯が 6 個ある歯車。
msoShapeGear9173歯が 9 個ある歯車。
msoShapeFunnel174じょうご。
msoShapePieWedge175四分円。
msoShapeLeftCircularArrow176反時計回りの方向を指す環状矢印。
msoShapeLeftRightCircularArrow177時計回りと反時計回りの両方を指す環状矢印。両端に矢印が付いている曲線状の矢印。
msoShapeSwooshArrow178曲線状の矢印。
msoShapeCloud179雲の形。
msoShapeChartX180正方形を対角線で 4 分割した形。
msoShapeChartStar181正方形を垂線と対角線で 6 分割した形。
msoShapeChartPlus182正方形を垂直方向と水平方向に 4 分割した形。
msoShapeLineInverse183右上がりの斜線。

ファイルやコードの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Twitterフォロー

 

ブログの更新通知を受け取るにはこちらにはこちら↓Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪

Twitterフォロー

 



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

ABOUTこの記事をかいた人

あることがキッカケでVBAを独学で勉強している、非IT企業の会社員。 今はVBAで出来ることを模索しながら別の開発言語の取得、基本情報技術者試験合格が目標