No.1ベストアンサー
- 回答日時:
全てのシェイプを対象にしています。
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.vector.co.jp/authors/VA016119/sizemmqa …
朝早くからご指導頂き誠に有り難うございました。
dim、図形属性の読み込み方など勉強になりました。
仕事の方も目途が立ちました。
もし次の機会が有りましたら、また宜しくお願い申し上げます。
No.2
- 回答日時:
シェープのうち、オートシェープのみを対象にし、シート上に幅、高さ、名前を表示させるマクロです。
シェープに特に名前をつけていなければ、四角形は Rectangle ○←番号 という名前になっていますから識別できます。
下記のコードをちょっといじれば、最初からRectangleだけを抽出もできますね。
Sub test()
n = 1
For Each sh In ActiveSheet.Shapes
If sh.Type = msoAutoShape Then
Cells(n, 1) = sh.Height
Cells(n, 2) = sh.Width
Cells(n, 3) = sh.Name
n = n + 1
End If
Next
End Sub
ご指導大変有り難うございました。
ワークシート上に個々の値が出力されるので、統計処理も出来そうです。
今後も宜しくお願い申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) VBA 最終行まで数式をコピーする 3 2023/01/03 15:44
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBA:オートシェイプの線の長さを知りたい。
Visual Basic(VBA)
-
Excel VBA シェイプの原型のサイズ取得方法
その他(プログラミング・Web制作)
-
excelで、曲線の長さを計測する方法
その他(Microsoft Office)
-
-
4
別のシートから値を取得するとき
Visual Basic(VBA)
-
5
PowerPointに動画をはった時の、動画の再生速度について
その他(ソフトウェア)
-
6
【エクセルVBA】シェイプのサイズとセルの縦横
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】マクロでページを追加...
-
エクセルVBAで納期管理システム...
-
エクセル 図形の寸法を取得したい
-
VB.NETによるEXCELの行挿入
-
CSVデータをEXCELのテーブルに...
-
エクセルファイルの回数期限の...
-
Excelでマクロ実行中に画面を固...
-
【ExcelVBA】マクロブックを通...
-
エクセルのバージョンアップに...
-
セルに入力するたびにマクロを...
-
エクセル連番自動印刷について
-
VBAで保存しないで閉じると空の...
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセルマクロで、別のブック...
-
excelで直前に参照していたブッ...
-
エクセル関数>参照ファイル名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA Shapes コピーと名前
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
エクセル マクロ写真帳に一括で...
-
エクセルのマクロについて教え...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
EXCEL VBA 他のアプリケーショ...
-
VBAで行コピーして挿入
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
シート名を記入する
-
【ExcelVBA】マクロブックを通...
-
エクセル 図形の寸法を取得したい
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAコードについて教え...
-
エクセルVBA MSGBOXを30秒間出...
-
エクセルに写真を挿入するマ...
おすすめ情報