powerpointでよく資料を作ります
頻繁に使う作業を省力化するため、VBAでアドインにしました
- 縁文字
- ノートを音声合成してビデオにする
- 図形の頂点を滑らかにする
- 複数の図形サイズを同じにする
- 赤丸点線図形を作る
- 赤四角点線図形を作る
これで結構楽になりました
今回機能追加したのは、点線図形作成です。
Attribute VB_Name = "図形作成"
Dim n As Long
Dim w As Single
Dim h As Single
Dim shp As Shape
Dim sw
Dim sh
Sub init()
'選択中のスライド番号を取得
n = ActiveWindow.Selection.SlideRange.SlideIndex
'図形サイズ
sw = 100
sh = 100
'スライドサイズ取得
w = ActivePresentation.PageSetup.SlideWidth / 2 - sw / 2
h = ActivePresentation.PageSetup.SlideHeight / 2 - sh / 2
End Sub
Sub 赤丸点線()
Call init
With ActivePresentation
Set shp = .Slides(n).Shapes.AddShape( _
Type:=msoShapeOval, _
Left:=w, _
Top:=h, _
Width:=sw, _
Height:=sh)
'線
shp.Line.Visible = msoTrue
shp.Line.DashStyle = msoLineDash
shp.Line.ForeColor.RGB = RGB(255, 0, 0)
shp.Line.Weight = 5
End With
End Sub
Sub ラウンド■点線()
Call init
With ActivePresentation
Set shp = .Slides(n).Shapes.AddShape( _
Type:=msoShapeRoundedRectangle, _
Left:=w, _
Top:=h, _
Width:=sw * 2, _
Height:=sh)
'線
shp.Line.Visible = msoTrue
shp.Line.DashStyle = msoLineDash
shp.Line.ForeColor.RGB = RGB(255, 0, 0)
shp.Line.Weight = 5
End With
End Sub
'msoShape10pointStar 149 10 ポイントの星
'msoShape12pointStar 150 12 ポイントの星
'msoShape16pointStar 94 16 ポイントの星
'msoShape24pointStar 95 24 ポイントの星
'msoShape32pointStar 96 32 ポイントの星
'msoShape4pointStar 91 4 点星
'msoShape5pointStar 92 5 点星
'msoShape6pointStar 147 6 点星
'msoShape7pointStar 148 7 点星
'msoShape8pointStar 93 8 点星
'msoShapeActionButtonBackorPrevious 129 [ 戻る] または [ 前へ] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonBeginning 131 [ 上旬] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonCustom 125 既定の画像またはテキストのないボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonDocument 134 [ 文書] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonEnd 132 [ 終了] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonForwardorNext 130 [ 進む] または [ 次へ] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonHelp 127 [ ヘルプ] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonHome 126 [ ホーム] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonInformation 128 [ 情報] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonMovie 136 [ ビデオ] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonReturn 133 [ 戻る] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeActionButtonSound 135 [ サウンド] ボタン。 マウスクリックおよびマウスオーバー動作をサポートします。
'msoShapeArc 25 アーク
'msoShapeBalloon 137 風船
'msoShapeBentArrow 41 90°の曲線に続くブロック矢印。
'msoShapeBentUpArrow 44 90°の鋭角線に続くブロック矢印。 既定では上向きです。
'msoShapeBevel 15 Bevel
'msoShapeBlockArc 20 円弧をブロックする
'msoShapeCan 13 Cna
'msoShapeChartPlus 182 四角形を垂直方向と水平方向に 4 四分の 4 に分割
'msoShapeChartStar 181 垂直線と対角線に沿って 6 つの部分に分割された正方形
'msoShapeChartX 180 対角線に沿って 4 つの部分に分割された正方形
'msoShapeChevron 52 Chevron
'msoShapeChord 161 円の内側を通って境界上の 2 つのポイントを結ぶ線を持つ円。和音を持つ円
'msoShapeCircularArrow 60 曲線 180 度の角度に続くブロック矢印
'msoShapeCloud 179 クラウドシェイプ
'msoShapeCloudCallout 108 クラウド吹き出し
'msoShapeCorner 162 四角形の欠落部分がある四角形。
'msoShapeCornerTabs 169 四角形の形に沿って配置された 4 つの直角三角形。4 つの切り取られた角部分。
'msoShapeCross 11 交差
'msoShapeCube 14 キューブ
'msoShapeCurvedDownArrow 48 下にカーブするブロック矢印
'msoShapeCurvedDownRibbon 100 下にカーブするリボン バナー
'msoShapeCurvedLeftArrow 46 左にカーブするブロック矢印
'msoShapeCurvedRightArrow 45 右にカーブするブロック矢印
'msoShapeCurvedUpArrow 47 上にカーブするブロック矢印
'msoShapeCurvedUpRibbon 99 上にカーブするリボン バナー
'msoShapeDecagon 144 デカゴン
'msoShapeDiagonalStripe 141 2 つの三角形の図形が削除された四角形。対角線
'msoShapeDiamond 4 ひし形
'msoShapeDodecagon 146 12 角形。
'msoShapeDonut 18 ドーナツ
'msoShapeDoubleBrace 27 二重かっこ
'msoShapeDoubleBracket 26 二重角かっこ
'msoShapeDoubleWave 104 ダブルウェーブ
'msoShapeDownArrow 36 下向きのブロック矢印
'msoShapeDownArrowCallout 56 下向きの矢印を使用した吹き出し
'msoShapeDownRibbon 98 リボンの端の下に中央の領域があるリボン バナー
'msoShapeExplosion1 89 Explosion
'msoShapeExplosion2 90 Explosion
'msoShapeFlowchartAlternateProcess 62 代替プロセス フローチャート 記号
'msoShapeFlowchartCard 75 カードフローチャート記号
'msoShapeFlowchartCollate 79 フローチャート記号を照合する
'msoShapeFlowchartConnector 73 コネクタ フローチャート 記号
'msoShapeFlowchartData 64 データ フローチャート 記号
'msoShapeFlowchartDecision 63 デシジョン フローチャート 記号
'msoShapeFlowchartDelay 84 遅延フローチャート記号
'msoShapeFlowchartDirectAccessStorage 87 直接アクセスストレージフローチャート記号
'msoShapeFlowchartDisplay 88 フローチャート記号を表示する
'msoShapeFlowchartDocument 67 ドキュメント フローチャート 記号
'msoShapeFlowchartExtract 81 フローチャート記号の抽出
'msoShapeFlowchartInternalStorage 66 内部ストレージ フローチャート 記号
'msoShapeFlowchartMagneticDisk 86 磁気ディスクフローチャート記号
'msoShapeFlowchartManualInput 71 手動入力フローチャート記号
'msoShapeFlowchartManualOperation 72 手動操作フローチャート記号
'msoShapeFlowchartMerge 82 差し込みフローチャート記号
'msoShapeFlowchartMultidocument 68 複数文書フローチャート記号
'msoShapeFlowchartOfflineStorage 139 オフライン ストレージ フローチャート 記号
'msoShapeFlowchartOffpageConnector 74 オフページ コネクタ フローチャート 記号
'msoShapeFlowchartOr 78 "Or" フローチャート 記号
'msoShapeFlowchartPredefinedProcess 65 定義済みのプロセス フローチャート 記号
'msoShapeFlowchartPreparation 70 準備フローチャート記号
'msoShapeFlowchartProcess 61 プロセス フローチャート 記号
'msoShapeFlowchartPunchedTape 76 パンチテープフローチャート記号
'msoShapeFlowchartSequentialAccessStorage 85 順次アクセス・ストレージフローチャート記号
'msoShapeFlowchartSort 80 並べ替えフローチャート記号
'msoShapeFlowchartStoredData 83 格納されたデータ フローチャート 記号
'msoShapeFlowchartSummingJunction 77 加算ジャンクション フローチャート 記号
'msoShapeFlowchartTerminator 69 ターミネータ フローチャート 記号
'msoShapeFoldedCorner 16 折り曲げコーナー
'msoShapeFrame 158 長方形の額縁
'msoShapeFunnel 174 漏斗
'msoShapeGear6 172 6本の歯を持つギア
'msoShapeGear9 173 歯が 9 個ある歯車。
'msoShapeHalfFrame 159 長方形の額縁の半分
'msoShapeHeart 21 心
'msoShapeHeptagon 145 Heptagon
'msoShapeHexagon 10 六角 形
'msoShapeHorizontalScroll 102 水平スクロール
'msoShapeIsoscelesTriangle 7 三角形の三角形
'msoShapeLeftArrow 34 左を指すブロック矢印
'msoShapeLeftArrowCallout 54 左を指す矢印を使用した吹き出し
'msoShapeLeftBrace 31 左かっこ
'msoShapeLeftBracket 29 左角かっこ
'msoShapeLeftCircularArrow 176 反時計回りを指す円形の矢印
'msoShapeLeftRightArrow 37 左右の両方を指す矢印付きのブロック矢印
'msoShapeLeftRightArrowCallout 57 左と右の両方を指す矢印付きの吹き出し
'msoShapeLeftRightCircularArrow 177 時計回りと反時計回りを指す円形の矢印。両端にポイントがある曲線矢印
'msoShapeLeftRightRibbon 140 両端に矢印が付いたリボン
'msoShapeLeftRightUpArrow 40 左、右、上を指す矢印を含むブロック矢印
'msoShapeLeftUpArrow 43 左と上を指す矢印が付いたブロック矢印
'msoShapeLightningBolt 22 稲妻
'msoShapeLineCallout1 109 罫線と水平吹き出し線を使用した吹き出し
'msoShapeLineCallout1AccentBar 113 水平アクセント バーを使用した吹き出し
'msoShapeLineCallout1BorderandAccentBar 121 罫線と水平方向のアクセント バーを使用した吹き出し
'msoShapeLineCallout1NoBorder 117 水平線を使用した吹き出し
'msoShapeLineCallout2 110 斜めの直線を使用した吹き出し
'msoShapeLineCallout2AccentBar 114 斜め吹き出し線とアクセント バーを使用した吹き出し
'msoShapeLineCallout2BorderandAccentBar 122 罫線、対角線、アクセント バーを使用した吹き出し
'msoShapeLineCallout2NoBorder 118 罫線のない吹き出し線と対角線付き吹き出し線
'msoShapeLineCallout3 111 斜線を使用した吹き出し
'msoShapeLineCallout3AccentBar 115 角度付き吹き出し線とアクセント バーを使用した吹き出し
'msoShapeLineCallout3BorderandAccentBar 123 罫線、角度付き吹き出し線、アクセント バーを含む吹き出し
'msoShapeLineCallout3NoBorder 119 罫線と角度付き吹き出し線のない吹き出し
'msoShapeLineCallout4 112 U 図形を形成する吹き出し線セグメントを含む吹き出し
'msoShapeLineCallout4AccentBar 116 U 図形を形成するアクセント バーと吹き出し線セグメントを含む吹き出し
'msoShapeLineCallout4BorderandAccentBar 124 U 図形を形成する罫線、アクセント バー、吹き出し線セグメントを含む吹き出し
'msoShapeLineCallout4NoBorder 120 U 図形を形成する罫線セグメントと吹き出し線セグメントのない吹き出し
'msoShapeLineInverse 183 線の逆数
'msoShapeMathDivide 166 除算記号 ÷
'msoShapeMathEqual 167 等価記号 =
'msoShapeMathMinus 164 減算記号 -
'msoShapeMathMultiply 165 乗算記号 x
'msoShapeMathNotEqual 168 非等価記号 ≠
'msoShapeMathPlus 163 加算記号 +
'msoShapeMixed -2 値のみを返します。その他の状態の組み合わせを示します。
'msoShapeMoon 24 月
'msoShapeNonIsoscelesTrapezoid 143 非対称非平行辺を持つ台形
'msoShapeNoSymbol 19 "いいえ" 記号
'msoShapeNotchedRightArrow 50 右を指すノッチ付きブロック矢印
'msoShapeNotPrimitive 138 非サポート
'msoShapeOctagon 6 オクタゴン
'msoShapeOval 9 楕円
'msoShapeOvalCallout 107 楕円型吹き出し
'msoShapeParallelogram 2 平行 四辺形
'msoShapePentagon 51 ペンタゴン
'msoShapePie 142 一部が欠落している円 ('pie')
'msoShapePieWedge 175 円形図形の 4 分の 1
'msoShapePlaque 28 プラーク
'msoShapePlaqueTabs 171 四角形の図形を定義する 4 つの四分円
'msoShapeQuadArrow 39 上、下、左、右を指すブロック矢印
'msoShapeQuadArrowCallout 59 上、下、左、右を指す矢印を使用した吹き出し
'msoShapeRectangle 1 四角形
'msoShapeRectangularCallout 105 長方形吹き出し
'msoShapeRegularPentagon 12 ペンタゴン
'msoShapeRightArrow 33 右を指すブロック矢印
'msoShapeRightArrowCallout 53 右を指す矢印を使用した吹き出し
'msoShapeRightBrace 32 右中かっこ
'msoShapeRightBracket 30 右角かっこ
'msoShapeRightTriangle 8 右三角形
'msoShapeRound1Rectangle 151 角を丸めた四角形
'msoShapeRound2DiagRectangle 157 2 つの角を丸めた四角形(対角線付き)
'msoShapeRound2SameRectangle 152 辺を共有する角が 2 角の四角形
'msoShapeRoundedRectangle 5 角丸四角形
'msoShapeRoundedRectangularCallout 106 四角形の丸みを帯びた吹き出し
'msoShapeSmileyFace 17 スマイリーフェイス
'msoShapeSnip1Rectangle 155 1 つの角が切り取られた四角形
'msoShapeSnip2DiagRectangle 157 斜め対向する 2 つの角を持つ四角形
'msoShapeSnip2SameRectangle 156 辺を共有する 2 つの角が切り取られた四角形
'msoShapeSnipRoundRectangle 154 1 つの角が切り取られ、角が丸い四角形
'msoShapeSquareTabs 170 四角形の図形を定義する 4 つの小さな四角形
'msoShapeStripedRightArrow 49 末尾にストライプが付いた右を指すブロック矢印
'msoShapeSun 23 日
'msoShapeSwooshArrow 178 曲線矢印
'msoShapeTear 160 水滴
'msoShapeTrapezoid 3 台形
'msoShapeUpArrow 35 上を指すブロック矢印
'msoShapeUpArrowCallout 55 上を指す矢印を使用した吹き出し
'msoShapeUpDownArrow 38 上下を指すブロック矢印
'msoShapeUpDownArrowCallout 58 上下を指す矢印を使用した吹き出し
'msoShapeUpRibbon 97 リボンの端の上に中央の領域があるリボン バナー
'msoShapeUTurnArrow 42 U 図形を形成するブロック矢印
'msoShapeVerticalScroll 101 垂直スクロール
'msoShapeWave 103 小波