Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11727 / 76734 ←次へ | 前へ→

【70539】四角形の大きさが変
質問  すなさん  - 11/11/26(土) 23:10 -

引用なし
パスワード
   EXCEL2010を使っています。
下記コードで四角形を描画したのですが、縦横の比率がおかしいです。

Sub test()
  '1_縦長長方形
  ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300, 300, 100, 200).Select
  With Selection.ShapeRange.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 255, 255)
    .Transparency = 0
    .Solid
  End With
  
  '2_横長長方形
  ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300, 300, 200, 100).Select
  With Selection.ShapeRange.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 255, 255)
    .Transparency = 0
    .Solid
  End With

End Sub

描いた図のプロパティを見ると
1_縦長長方形は タテ7.28 cm ヨコ3.5cm
2_横長長方形は タテ3.63 cm ヨコ7cm
となり、同じ大きさになりません。
2_横長長方形 のほうが少し小さくなります。
同じにならないのはなぜでしょうか?
同じにする方法はないでしょうか?

6 hits

【70539】四角形の大きさが変 すなさん 11/11/26(土) 23:10 質問
【70540】Re:四角形の大きさが変 UO3 11/11/27(日) 7:51 発言
【70546】Re:四角形の大きさが変 すなさん 11/11/28(月) 0:13 発言
【70551】Re:四角形の大きさが変 UO3 11/11/29(火) 9:32 発言
【70557】Re:四角形の大きさが変 すなさん 11/11/29(火) 23:25 お礼
【70541】Re:四角形の大きさが変 UO3 11/11/27(日) 8:02 発言
【70547】Re:四角形の大きさが変 すなさん 11/11/28(月) 0:18 発言
【70552】Re:四角形の大きさが変 とおりすぎ 11/11/29(火) 10:32 回答

11727 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free