No.3ベストアンサー
- 回答日時:
マクロで対応するしかないと思います。
マクロの例
Sub PPBlockArc()
' 図形サイズの指定をセンチメートル単位に
Const P2CM = 72 / 2.54 'Points To CentiMeters
Dim CM As Double
CM = 10 * P2CM ' 10cmに
' 左上端からそれぞれ5cm(基準の10cmの半分)の位置に
With ActivePresentation.Slides(1).Shapes.AddShape(msoShapeBlockArc, CM / 2, CM / 2, CM, CM)
.Adjustments.Item(1) = 0# ' 右側の角度(既定値)
.Adjustments.Item(2) = 180# ' 左側の角度(既定値)
.Adjustments.Item(3) = 0.01 ' 幅の割合(10cmを1とする)
.Line.Visible = msoFalse ' 線なし
.Flip msoFlipVertical ' 上下反転(既定値)
End With
End Sub
Adjustments.Item(3) が幅になるのですが、アーチ全体の幅を
基準にして、1(100%)として指定します。
上記マクロでは、0.01なので、10cm(100mm)の場合だと、
100mm×0.01=1mm
となり、幅のサイズが1ミリ幅になります。
線なしにしないと、線の太さ分の誤差が出ます。
角度の指定もマクロに組み込んだので、角度指定もできます。
他の質問にあるような角度指定も可能になります。
挿入済みのアーチで太さを変える場合は、別途マクロを用意し、
それで対応するようにしますが、今回は、新規のアーチのみでの
マクロだけにしました。

No.2
- 回答日時:
Wordでも回答しましたが、アーチを描いて何をしたいのでしょうか?
毎回同じことを質問されているようなので、気になりました。
目的が分かれば、解答しやすいのですが?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
Excel VBA のdebug(F8キー) が...
-
エクセル グラフの軸の最小値最...
-
Excelマクロからのデータアクセ...
-
複数ファイルにある特定のシー...
-
TeraTermのマクロについて
-
マクロ ブックをマクロなしでコ...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
Excelマクロでオプションボタン...
-
エラーになってないのにVBA...
-
エクセルのマクロ機能で前のシ...
-
マクロ 実行ボタンを押さずに...
-
パワーポイントのアーチの幅を...
-
Wordの画面を左右にスクロール...
-
Excelの改ページ 同シート内で...
-
VBAでEXCELに埋め込んだPDFを開...
-
ある行の前に通し番号をつける...
-
エクセルで複数のシートをまと...
-
Excel2000 データの並べ替えで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
エクセル グラフの軸の最小値最...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Wordの画面を左右にスクロール...
-
EXCEL 複数のシートの同一の位...
-
エクセルのマクロ機能で前のシ...
-
Excelを開いた時に表示さ...
-
エクセルで複数のシートをまと...
-
エクセルでマクロ実行中に任意...
-
ワードからエクセルへ貼り付け...
-
VBAでEXCELに埋め込んだPDFを開...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelマクロでオプションボタン...
-
マクロを実行した日付をセルに...
-
TeraTermのマクロについて
-
Accessのクエリを実行するショ...
おすすめ情報