[[20060330103852]]　『升目を正方形にするには』（123）　ページの最後に飛ぶ

『升目を正方形にするには』（123）
エクセルの行列を使って正方形の升目を作りたいと思いますが、
ピクセルで合わせると、正方形ぽく見えますが、
完全な正方形にすることはできるのでしょうか？

 ↓が参考になるかな？
https://www.excel.studio-kazu.jp/tips/0015/

 後、方眼紙、で検索したら参考になるものが見つかるかも。
 (MARBIN)

 セルではなくシェイプの直線ですが、方眼紙らしきものを作るVBAです。
 まあ、お遊び程度、ということで。厳密には考えてません。

 Sub hougan()
  Dim lt As Single
  Dim tp As Single
  Dim wd As Single
  Dim ht As Single
  Dim tate As Long
  Dim yoko As Long
  Dim mysize As Single
   mysize = Application.InputBox( _
     prompt:="マスサイズを指定してください。", Type:=1)
   tate = Application.InputBox( _
     prompt:="縦マス数を指定してください。", Type:=1)
  yoko = Application.InputBox( _
     prompt:="横マス数を指定してください。", Type:=1)
   '横線
   For i = 1 To tate + 1
    tp = 10 + (i - 1) * mysize
    wd = yoko * mysize
     ActiveSheet.Shapes.AddLine(10, tp, 10 + wd, tp).Name = "横" & i
   Next i
   '縦線
   For i = 1 To yoko + 1
    lt = 10 + (i - 1) * mysize
    ht = tate * mysize
     ActiveSheet.Shapes.AddLine(lt, 10, lt, 10 + ht).Name = "縦" & i
   Next i
 End Sub
 (MARBIN)

 オートシェイプの四角に合わせる
オートシェイプの書式でサイズ設定　セルに合わせてサイズ移動のチェック外す

 名無しさん？レスをつけるスレッドを間違ってませんか？
 元のスレッドでリンクしたところにレスしてますけど・・・。

[[20071102173601]]『セルを正方形に』（たろ）

 (MARBIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20060330103852]] 『升目を正方形にするには』（123） ページの最後に飛ぶ

[[20060330103852]]　『升目を正方形にするには』（123）　ページの最後に飛ぶ