コメントの追加時に枠の種類を設定可能
コメントを追加する場合、このようなコードになります。
その際にコメントの枠の形式をAutoShapeTypeで設定できます。
|
1 2 3 4 5 |
Sub AddCommentTest() Dim cmt As Comment Set cmt = Range("A1").AddComment(Text:="abc") cmt.shape.AutoShapeType = 12 End Sub |
AutoShapeTypeの種類
AutoShapeTypeのヘルプです。
https://msdn.microsoft.com/ja-jp/library/office/ff862770.aspx
AutoShapeTypeには138種類あります。
定数は184種類ありますが、値が138以上をAutoShapeTypeに設定した場合はエラーになります。その場合は値1と同じ四角形が設定されます。
それぞれコメントの枠の形が異なりますので以下の一覧で整理します。
| 定数 | 値 | 説明 | 画像 |
|---|---|---|---|
| msoShapeMixed | -2 | 値のみを返します。その他の状態の組み合わせを示します。 | |
| msoShapeRectangle | 1 | 四角形。 | |
| msoShapeParallelogram | 2 | 平行四辺形。 | |
| msoShapeTrapezoid | 3 | 台形。 | |
| msoShapeDiamond | 4 | ひし形。 | |
| msoShapeRoundedRectangle | 5 | 角丸四角形。 | |
| msoShapeOctagon | 6 | 八角形。 | |
| msoShapeIsoscelesTriangle | 7 | 二等辺三角形。 | |
| msoShapeRightTriangle | 8 | 直角三角形。 | |
| msoShapeOval | 9 | 楕円。 | |
| msoShapeHexagon | 10 | 六角形。 | |
| msoShapeCross | 11 | 十字形。 | |
| msoShapeRegularPentagon | 12 | ホームベース。 | |
| msoShapeCan | 13 | 円柱。 | |
| msoShapeCube | 14 | 直方体。 | |
| msoShapeBevel | 15 | 斜角。 | |
| msoShapeFoldedCorner | 16 | メモ。 | |
| msoShapeSmileyFace | 17 | スマイル。 | |
| msoShapeDonut | 18 | ドーナツ。 | |
| msoShapeNoSymbol | 19 | 禁止。 | |
| msoShapeBlockArc | 20 | アーチ。 | |
| msoShapeHeart | 21 | ハート。 | |
| msoShapeLightningBolt | 22 | 稲妻。 | |
| msoShapeSun | 23 | 太陽。 | |
| msoShapeMoon | 24 | 月。 | |
| msoShapeArc | 25 | 円弧。 | |
| msoShapeDoubleBracket | 26 | 大かっこ。 | |
| msoShapeDoubleBrace | 27 | 中かっこ。 | |
| msoShapePlaque | 28 | ブローチ。 | |
| msoShapeLeftBracket | 29 | 左大かっこ。 | |
| msoShapeRightBracket | 30 | 右大かっこ。 | |
| msoShapeLeftBrace | 31 | 左中かっこ。 | |
| msoShapeRightBrace | 32 | 右中かっこ。 | |
| msoShapeRightArrow | 33 | 右向きブロック矢印。 | |
| msoShapeLeftArrow | 34 | 左向きブロック矢印。 | |
| msoShapeUpArrow | 35 | 上向きブロック矢印。 | |
| msoShapeDownArrow | 36 | 下向きブロック矢印。 | |
| msoShapeLeftRightArrow | 37 | 左右ブロック矢印。 | |
| msoShapeUpDownArrow | 38 | 上下 2 方向ブロック矢印。 | |
| msoShapeQuadArrow | 39 | 4 方向ブロック矢印。 | |
| msoShapeLeftRightUpArrow | 40 | 左、右、および上の 3 方向ブロック矢印。 | |
| msoShapeBentArrow | 41 | 90°の曲線に続くブロック矢印。 | |
| msoShapeUTurnArrow | 42 | U 字型のブロック矢印。 | |
| msoShapeLeftUpArrow | 43 | 左および上矢印の 2 方向ブロック矢印。 | |
| msoShapeBentUpArrow | 44 | 90°の鋭角線に続くブロック矢印。既定では上向きです。 | |
| msoShapeCurvedRightArrow | 45 | 右カーブ ブロック矢印。 | |
| msoShapeCurvedLeftArrow | 46 | 左カーブ ブロック矢印。 | |
| msoShapeCurvedUpArrow | 47 | 上カーブ ブロック矢印。 | |
| msoShapeCurvedDownArrow | 48 | 下カーブ ブロック矢印。 | |
| msoShapeStripedRightArrow | 49 | 先にストライプの付いた右向きのブロック矢印。 | |
| msoShapeNotchedRightArrow | 50 | 右向きの V 字型矢印。 | |
| msoShapePentagon | 51 | ホームベース。 | |
| msoShapeChevron | 52 | 山形。 | |
| msoShapeRightArrowCallout | 53 | 右矢印の付いた吹き出し。 | |
| msoShapeLeftArrowCallout | 54 | 左矢印の付いた吹き出し。 | |
| msoShapeUpArrowCallout | 55 | 上矢印の付いた吹き出し。 | |
| msoShapeDownArrowCallout | 56 | 下矢印の付いた吹き出し。 | |
| msoShapeLeftRightArrowCallout | 57 | 左右矢印の付いた吹き出し。 | |
| msoShapeUpDownArrowCallout | 58 | 上下のブロック矢印の付いた吹き出し。 | |
| msoShapeQuadArrowCallout | 59 | 4 方向矢印の付いた吹き出し。 | |
| msoShapeCircularArrow | 60 | 180°の曲線に続くブロック矢印。 | |
| msoShapeFlowchartProcess | 61 | 処理フローチャート記号。 | |
| msoShapeFlowchartAlternateProcess | 62 | 代替処理フローチャート記号。 | |
| msoShapeFlowchartDecision | 63 | 判断フローチャート記号。 | |
| msoShapeFlowchartData | 64 | データ フローチャート記号。 | |
| msoShapeFlowchartPredefinedProcess | 65 | 定義済み処理フローチャート記号。 | |
| msoShapeFlowchartInternalStorage | 66 | 内部記憶フローチャート記号。 | |
| msoShapeFlowchartDocument | 67 | 書類フローチャート記号。 | |
| msoShapeFlowchartMultidocument | 68 | 複数書類フローチャート記号。 | |
| msoShapeFlowchartTerminator | 69 | 端子フローチャート記号。 | |
| msoShapeFlowchartPreparation | 70 | 準備フローチャート記号。 | |
| msoShapeFlowchartManualInput | 71 | 手操作入力フローチャート記号。 | |
| msoShapeFlowchartManualOperation | 72 | 手作業フローチャート記号。 | |
| msoShapeFlowchartConnector | 73 | 結合子フローチャート記号。 | |
| msoShapeFlowchartOffpageConnector | 74 | 他ページ結合子フローチャート記号。 | |
| msoShapeFlowchartCard | 75 | カード フローチャート記号。 | |
| msoShapeFlowchartPunchedTape | 76 | せん孔テープ フローチャート記号。 | |
| msoShapeFlowchartSummingJunction | 77 | 和接合フローチャート記号。 | |
| msoShapeFlowchartOr | 78 | 論理和フローチャート記号。 | |
| msoShapeFlowchartCollate | 79 | 照合フローチャート記号。 | |
| msoShapeFlowchartSort | 80 | 分類フローチャート記号。 | |
| msoShapeFlowchartExtract | 81 | 抜き出しフローチャート記号。 | |
| msoShapeFlowchartMerge | 82 | 組み合わせフローチャート記号。 | |
| msoShapeFlowchartStoredData | 83 | 記憶データ フローチャート記号。 | |
| msoShapeFlowchartDelay | 84 | 論理積ゲート フローチャート記号。 | |
| msoShapeFlowchartSequentialAccessStorage | 85 | 順次アクセス記憶フローチャート記号。 | |
| msoShapeFlowchartMagneticDisk | 86 | 磁気ディスク フローチャート記号。 | |
| msoShapeFlowchartDirectAccessStorage | 87 | 直接アクセス記憶フローチャート記号。 | |
| msoShapeFlowchartDisplay | 88 | 表示フローチャート記号。 | |
| msoShapeExplosion1 | 89 | 爆発。 | |
| msoShapeExplosion2 | 90 | 爆発。 | |
| msoShape4pointStar | 91 | 4 ポイントの星。 | |
| msoShape5pointStar | 92 | 5 ポイントの星。 | |
| msoShape8pointStar | 93 | 8 ポイントの星。 | |
| msoShape16pointStar | 94 | 16 ポイントの星。 | |
| msoShape24pointStar | 95 | 24 ポイントの星。 | |
| msoShape32pointStar | 96 | 32 ポイントの星。 | |
| msoShapeUpRibbon | 97 | リボンの端よりも上に中央面があるリボン。 | |
| msoShapeDownRibbon | 98 | リボンの端よりも下に中央面があるリボン。 | |
| msoShapeCurvedUpRibbon | 99 | 上カーブリボン。 | |
| msoShapeCurvedDownRibbon | 100 | 下カーブ リボン。 | |
| msoShapeVerticalScroll | 101 | 縦巻き。 | |
| msoShapeHorizontalScroll | 102 | 横巻き。 | |
| msoShapeWave | 103 | 大波。 | |
| msoShapeDoubleWave | 104 | 小波。 | |
| msoShapeRectangularCallout | 105 | 四角形吹き出し。 | |
| msoShapeRoundedRectangularCallout | 106 | 角丸四角形吹き出し。 | |
| msoShapeOvalCallout | 107 | 円形吹き出し。 | |
| msoShapeCloudCallout | 108 | 雲形吹き出し。 | |
| msoShapeLineCallout1 | 109 | 枠付きで、水平の吹き出し線の付いた吹き出し。 | |
| msoShapeLineCallout2 | 110 | 斜めの直線の付いた吹き出し。 | |
| msoShapeLineCallout3 | 111 | 折れ線の付いた吹き出し。 | |
| msoShapeLineCallout4 | 112 | U 字型の吹き出し線分の付いた吹き出し。 | |
| msoShapeLineCallout1AccentBar | 113 | 水平の強調線の付いた吹き出し。 | |
| msoShapeLineCallout2AccentBar | 114 | 斜めの吹き出し線と強調線の付いた吹き出し。 | |
| msoShapeLineCallout3AccentBar | 115 | 折れた吹き出し線と強調線の付いた吹き出し。 | |
| msoShapeLineCallout4AccentBar | 116 | 強調線および U 字型の吹き出し線分の付いた吹き出し。 | |
| msoShapeLineCallout1NoBorder | 117 | 水平線の付いた吹き出し。 | |
| msoShapeLineCallout2NoBorder | 118 | 枠および斜めの吹き出し線のない吹き出し。 | |
| msoShapeLineCallout3NoBorder | 119 | 枠および折れた吹き出し線のない吹き出し。 | |
| msoShapeLineCallout4NoBorder | 120 | 枠線および U 字型の吹き出し線分のない吹き出し。 | |
| msoShapeLineCallout1BorderandAccentBar | 121 | 枠付きで、水平の強調線の付いた吹き出し。 | |
| msoShapeLineCallout2BorderandAccentBar | 122 | 枠、斜めの直線、および強調線の付いた吹き出し。 | |
| msoShapeLineCallout3BorderandAccentBar | 123 | 枠、折れた吹き出し線、強調線の付いた吹き出し。 | |
| msoShapeLineCallout4BorderandAccentBar | 124 | 枠線、強調線、および U 字型の吹き出し線分の付いた吹き出し。 | |
| msoShapeActionButtonCustom | 125 | 既定の画像またはテキストのないボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonHome | 126 | [ホーム] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonHelp | 127 | [ヘルプ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonInformation | 128 | [情報] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonBackorPrevious | 129 | [戻る] または [前へ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonForwardorNext | 130 | [進む] または [次へ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonBeginning | 131 | [上旬] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonEnd | 132 | [終了] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonReturn | 133 | [戻る] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonDocument | 134 | [文書] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonSound | 135 | [サウンド] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeActionButtonMovie | 136 | [ビデオ] ボタン。マウスクリックおよびマウスオーバー動作をサポートします。 | |
| msoShapeBalloon | 137 | 吹き出し。 | |
| msoShapeNotPrimitive | 138 | サポートされていません。 | |
| msoShapeFlowchartOfflineStorage | 139 | オフライン記憶域フローチャート記号。 | |
| msoShapeLeftRightRibbon | 140 | 両端に矢印が付いているリボン。 | |
| msoShapeDiagonalStripe | 141 | 四角形から 2 つの三角形部分が断ち切られた形。斜線。 | |
| msoShapePie | 142 | 円グラフの一片が切り取られた形。 | |
| msoShapeNonIsoscelesTrapezoid | 143 | 台形。 | |
| msoShapeDecagon | 144 | 十角形。 | |
| msoShapeHeptagon | 145 | 七角形。 | |
| msoShapeDodecagon | 146 | 12 角形。 | |
| msoShape6pointStar | 147 | 6 ポイントの星。 | |
| msoShape7pointStar | 148 | 7 ポイントの星。 | |
| msoShape10pointStar | 149 | 10 ポイントの星。 | |
| msoShape12pointStar | 150 | 12 ポイントの星。 | |
| msoShapeRound1Rectangle | 151 | 1 つの角が丸くなっている四角形。 | |
| msoShapeRound2SameRectangle | 152 | 1 辺を共有する 2 つの角が丸くなっている四角形。 | |
| msoShapeSnipRoundRectangle | 154 | 1 つの角が欠けていて、1 つの角が丸くなっている四角形。 | |
| msoShapeSnip1Rectangle | 155 | 1 つの角が欠けている四角形。 | |
| msoShapeSnip2SameRectangle | 156 | 1 辺を共有する 2 つの角が欠けている四角形。 | |
| msoShapeRound2DiagRectangle | 157 | 対角にある 2 つの角が丸くなっている四角形。 | |
| msoShapeSnip2DiagRectangle | 157 | 対角にある 2 つの角が欠けている四角形。 | |
| msoShapeFrame | 158 | 四角形の写真フレーム。 | |
| msoShapeHalfFrame | 159 | 四角形の写真フレームを半分にした形。 | |
| msoShapeTear | 160 | 水滴。 | |
| msoShapeChord | 161 | 円と、円周上にある 2 点を円の内側を通って結ぶ直線。円と弦。 | |
| msoShapeCorner | 162 | 四角形の欠落部分がある四角形。 | |
| msoShapeMathPlus | 163 | 加算記号「+」。 | |
| msoShapeMathMinus | 164 | 減算記号「-」。 | |
| msoShapeMathMultiply | 165 | 乗算記号「x」。 | |
| msoShapeMathDivide | 166 | 除算記号「÷」。 | |
| msoShapeMathEqual | 167 | 等号「=」。 | |
| msoShapeMathNotEqual | 168 | 不等号「≠」。 | |
| msoShapeCornerTabs | 169 | 四角形の形に沿って配置された 4 つの直角三角形。4 つの切り取られた角部分。 | |
| msoShapeSquareTabs | 170 | 四角形の輪郭を示す 4 つの小さな四角形。 | |
| msoShapePlaqueTabs | 171 | 四角形の輪郭を示す 4 つの四分円。 | |
| msoShapeGear6 | 172 | 歯が 6 個ある歯車。 | |
| msoShapeGear9 | 173 | 歯が 9 個ある歯車。 | |
| msoShapeFunnel | 174 | じょうご。 | |
| msoShapePieWedge | 175 | 四分円。 | |
| msoShapeLeftCircularArrow | 176 | 反時計回りの方向を指す環状矢印。 | |
| msoShapeLeftRightCircularArrow | 177 | 時計回りと反時計回りの両方を指す環状矢印。両端に矢印が付いている曲線状の矢印。 | |
| msoShapeSwooshArrow | 178 | 曲線状の矢印。 | |
| msoShapeCloud | 179 | 雲の形。 | |
| msoShapeChartX | 180 | 正方形を対角線で 4 分割した形。 | |
| msoShapeChartStar | 181 | 正方形を垂線と対角線で 6 分割した形。 | |
| msoShapeChartPlus | 182 | 正方形を垂直方向と水平方向に 4 分割した形。 | |
| msoShapeLineInverse | 183 | 右上がりの斜線。 |