| 
    
     |  | 回答ありがとうございまいた。 私の質問が判り難くて申し訳ありません。
 実はエクセルでガントチャートが造りたいのです。
 
 セルの列をガントチャートの線とした時、1マスが10とした時に
 "3"や"7"といった数値をオートシェイプで描きたいのです。
 
 オートシェイプで四角を書こうとしたのですが、オートシェイプをあらわす数値は
 ピクセルでもセンチでも内容です。
 
 オートシェイプでサイズをあらわす数値は、ピクセル(又はcm)に換算すると
 いくつになるのでしょうか?
 
 それがわかれば、罫線を利用したグラフ(ガントチャート)が造れると
 思うのです。
 
 
 ▼ichinose さん:
 >▼B_BOSS さん:
 >こんばんは。
 >
 >> ワークシート上のセルの幅と、オートシェイプをVBAで作成しようとすると、
 >> サイズを指定する数値とセルの幅を指定する数値が合いません。
 >> セルの幅、ピクセルで表示されますが、下のコードのオートシェイプのサイズを指定する
 >> 数値は単位は何になるのでしょうか?
 >>
 >> セルの罫線を利用してグラフを作成したいのですが・・・?
 >> 罫線とオートシェイプのサイズを合わせる方法ってありますか?
 >>  Shapes.AddShape(msoShapeRectangle, 200, 100, 50, 5).Select
 >オートシェイプをセルの大きさに合わせる方法が分かればよいということでしょうか?
 >'=======================================================
 >Sub test()
 >  With ActiveCell
 >    ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
 >     .Left, .Top, .Width, .Height).Select
 >    End With
 >End Sub
 >
 >↑は、アクティブセルの大きさに合わせてオートシェイプを作成しています。
 
 
 |  |