エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
正八角形を書きたい - OKWAVE
エクセルVBAですが 下記を実行すると八角形が書けます。 ワードでもほぼ同じでしょう。 回転させたりは... エクセルVBAですが 下記を実行すると八角形が書けます。 ワードでもほぼ同じでしょう。 回転させたりは数学の知識が要ります。 対角線を引くのは ActiveSheet.Shapes.AddLine(x(3) + 200, y(3) + 200, x(7) + 200, y(7) + 200).Select のようなのを加えると良いです。 Sub Macro1() ActiveSheet.DrawingObjects.Delete Dim x(9), y(9) pai = 3.14159 y(1) = 100 x(1) = 0 '----- y(2) = 100 * Sin(pai / 180 * 45) x(2) = 100 * Cos(pai / 180 * 45) '----- y(3) = 0 x(3) = 100 '----- y(4) = -100 * Sin(pai / 180
2016/03/28 リンク