戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
オートシェイプで簡単に表を書く方法

    [191499] オートシェイプで簡単に表を書く方法-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ ちゃん -(2020/02/24(18:51))
    □U R L/

      オートシェイプで簡単に表を書くにはどのようにしたらよいか教えたいただきたくて質問しました
      VBAでも標準機能でもよいので教えて下さい

      EXCELの標準枠線で表を書いた後、
      その枠線や仕切り線などを一括でオートシェイプの線に変換することはできますか?

      できたら標準枠線で書いた赤の線は0.5の黒線オートシェイプ、青の線は0.25、などできると助かります

      変換でなくとも、標準枠線を引くように、選択したセルに一括でオートシェイプ線が引ければいいです

      現状ではAltを押しながら一本づつ引いているのでかなり骨がおれます

      WIN10
      オフィス365
      です


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [191500] Re[1]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ まっつわん -(2020/02/24(19:27))
    □U R L/

      回答ではありません。

      興味があります。
      図形で表を書けたとして、
      その後それをどう使うのですか?




    [191503] Re[2]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ kazuo -(2020/02/24(20:10))
    □U R L/

      齟齬があるといけないので確認させてください。
      >EXCELの標準枠線で表を書いた後
      枠線で表を書くとはどういうことですか。枠線(目盛線)はシート全体に適用されるだけです。
      ttps://support.office.com/ja-jp/article/%E3%83%AF%E3%83%BC%E3%82%AF%E3%82%B7%E3%83%BC%E3%83%88%E3%81%AE%E6%9E%A0%E7%B7%9A%E3%82%92%E8%A1%A8%E7%A4%BA%E3%81%BE%E3%81%9F%E3%81%AF%E9%9D%9E%E8%A1%A8%E7%A4%BA%E3%81%AB%E3%81%99%E3%82%8B-3ef5aacb-4539-4ad5-9945-5ed53772dc4d
      >仕切り線などを
      仕切り線とは何ですか?罫線のことですか?




    [191504] Re[3]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ちゃん -(2020/02/24(20:48))
    □U R L/

      オートシェイプで線を書く理由は、線の太さが選べるからです
      実線では太すぎて点線(ヘアライン)では細すぎるので
      0.5と0.25で表を書きたいです

      枠線で表を作るとは、セル選択で線を引くやつです
      仕切り線は枠線の意味です




    [191506] Re[4]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ γ -(2020/02/24(22:56))
    □U R L/
      >枠線で表を作るとは、セル選択で線を引くやつです
      それは「罫線」とは別のものですか?
      罫線なら「線のスタイル」で上から二番目にあるやつ(細罫線?)を選べば、
      0.5と殆どかわらないと思いますけど?
      
      図形で罫線代わりにするという発想は初めて聞きました。
      とても苦労が多くなると思いますよ。
      
      全世界の多くの人がそれでやっているわけなので、妥協の範囲では?
      
      




    [191507] Re[5]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ちゃん -(2020/02/24(23:14))
    □U R L/

      プリンタの都合なのかわかりませんが
      点線、実線、0.5、0.25並べて印刷するとだいぶん差があったので必要に感じました
      (ブラザーのレーザープリンタでは細枠線(点線)では印字がほぼ消えてました)




    [191508] Re[6]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/24(23:20))
    □U R L/
      マクロに指示に従って範囲を選択すると
      範囲内に0.25の横線と0.5の枠線(四角形)が惹かれます。
      Sub Test()
          Dim myRange As Range
          On Error Resume Next
          Set myRange = Application.InputBox(Prompt:="セル範囲をドラッグしてください", Type:=8)
          If Err Then
              MsgBox "中断します。"
              On Error GoTo 0
              Exit Sub
          End If
          '範囲内に横線 0.25
          For i = 1 To myRange.Rows.Count - 1
              With myRange.Rows(i)
                  With ActiveSheet.Shapes.AddLine(.Left, .Top + .Height, .Left + .Width, .Top + .Height)
                      .Line.Weight = 0.25
                  End With
              End With
          Next
          '外枠 0.5
          With myRange
              With ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
                  .Line.Weight = 0.5
                  .Fill.Visible = msoFalse
              End With
          End With
      Exit Sub
          
          


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191509] Re[7]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/24(23:23))
    □U R L/
      訂正、一番最後
      >Exit Sub
         ↓
      End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191510] Re[8]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/02/24(23:28))
    □U R L/
      おまけに、シート内の線と四角形の削除
      Sub obuject_delete()
          Dim i As Long
              With ActiveSheet
                  For i = .Shapes.Count To 1 Step -1
                      If .Shapes(i).AutoShapeType = msoShapeRectangle Or _
                          .Shapes(i).Type = msoLine Then .Shapes(i).Delete
                  Next i
              End With
      End Sub
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191511] Re[9]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ちゃん -(2020/02/25(00:07))
    □U R L/

      ピンクさんありがとうございます
      助かりました




    [191558] Re[10]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ちゃん -(2020/03/02(17:05))
    □U R L/

      ピンクさん、0.5は既定値の変更で黒になるのですが、0.25だけ青線になってしまいます
      なにか対処方法はあるでしょうか?
      また、縦線もほしいのですがお願いできますでしょうか?




    [191559] Re[11]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ ぴんく -(2020/03/02(17:48))
    □U R L/
      どうぞ〜
      Sub Test()
          Dim myRange As Range, i As Long
          On Error Resume Next
          Set myRange = Application.InputBox(Prompt:="セル範囲をドラッグしてください", Type:=8)
          If Err Then
              MsgBox "中断します。"
              On Error GoTo 0
              Exit Sub
          End If
          '範囲内に横線 0.25
          For i = 1 To myRange.Rows.Count - 1
              With myRange.Rows(i)
                  With ActiveSheet.Shapes.AddLine(.Left, .Top + .Height, .Left + .Width, .Top + .Height)
                      .Line.ForeColor.RGB = RGB(0, 0, 0)    '線色を黒
                      .Line.Weight = 0.25
                  End With
              End With
          Next
          '範囲内に縦線 0.25
          For i = 1 To myRange.Columns.Count - 1
              With myRange.Columns(i)
                  With ActiveSheet.Shapes.AddLine(.Left + .Width, .Top, .Left + .Width, .Top + .Height)
                      .Line.ForeColor.RGB = RGB(0, 0, 0)    '線色を黒
                      .Line.Weight = 0.25
                  End With
              End With
          Next
          '外枠 0.5
          With myRange
              With ActiveSheet.Shapes.AddShape(msoShapeRectangle, .Left, .Top, .Width, .Height)
                  .Line.ForeColor.RGB = RGB(0, 0, 0)    '線色を黒
                  .Line.Weight = 0.5
                  .Fill.Visible = msoFalse
              End With
          End With
          On Error GoTo 0
      End Sub
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [191561] Re[12]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ チオチモリン -(2020/03/03(14:36))
    □U R L/
      EXCELの罫線で表を書いた後、
      その罫線を一括でオートシェイプの線に変換すること
      
      ↑ 出来ますけど。 お望みのものかどうか?
      
      2010での手順(ex)
      ・罫線で格子を描く
      ・コピーし「図」として貼り付け
      ・↑を選択し、グループ解除(2回繰り返し)
      
      ※365では未確認
      




    [191574] Re[13]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ �ス�ス�ス�ス�ス -(2020/03/04(17:18))
    □U R L/

      ピンクさんありがとうございました

      チオチモリン、変換することはできましたが格子が一つのオートシェイプになってしまい
      グループ解除すると
      これはインポートされた図で、グループではありません。描画オブジェクトに変換しますか?
      とでて はい にすると巨大な黒い四角が大量にでます




    [191576] Re[14]: オートシェイプで簡単に表を書く方法-

    記事引用/メール受信=OFF■

    □投稿者/ チオチモリン -(2020/03/04(17:30))
    □U R L/
      >描画オブジェクトに変換しますか?
      >とでて はい にすると巨大な黒い四角が大量にでます
      
      巨大な黒い四角が大量 はよくわかりませんが
      
      それをもう一度グループ解除するとお望みの結果になると思ったのですが?
      
      グループ解除は2回されましたか?
      ※365では未確認 ですが
      2010では確認しています。
      
      ※ もう一つ 「図」のコピー元は罫線のみでしょうね?
      



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G