エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エクセル 図形の寸法を取得したい
全てのシェイプを対象にしています。 Sub test1() Dim Shap As Variant Dim W As Single Dim H As Singl... 全てのシェイプを対象にしています。 Sub test1() Dim Shap As Variant Dim W As Single Dim H As Single For Each Shap In ActiveSheet.Shapes 'Debug.Print Shap.Height, " * ", Shap.Width H = H + Shap.Height W = W + Shap.Width Next H = H / ActiveSheet.Shapes.Count W = W / ActiveSheet.Shapes.Count MsgBox "高さの平均は、" & Round(H * 0.035277778, 3) & " cm" & vbLf & _ " 幅の平均は、" & Round(W * 0.035277778, 3) & " cm" End Sub http://hp.