知られざるExcel図形一括選択VBAの技！1分でできる一括変更法

Excelを使っていると、複数の図形を一括で選択して位置やサイズを変更する必要が出てきますよね。でも、手作業で一つ一つ調整するのは時間がかかりすぎて面倒…。そこで役立つのがVBA（Visual Basic for Applications）です。今回は、Excelで「図形の一括選択」と「サイズ・位置の一括変更」を行うための方法を、初心者でもすぐに使える形で解説します。

VBAを使うことで、面倒な手作業を自動化でき、作業効率が劇的にアップします。この記事では、Excel初心者でも簡単に実践できるマクロの書き方を具体例を交えて紹介しますので、すぐに役立てられるはずです。

Excel VBAを使って図形を一括選択するメリットとは？

Excelのイメージ

VBAを使うと、複数の図形を一度に選択したり、位置やサイズを一括で調整したりすることができます。特に以下のような場面で有効です。

VBAを使えば、こうした手作業を簡単に自動化でき、数十、数百の図形を数秒で整列させることができます。では、実際にどのようにしてVBAを使いこなすのか、その方法を詳しく見ていきましょう。

Excel図形を一括選択・変更するための基本的なVBAコード

まずは、VBAの基本的な使い方を見てみましょう。下記のコードは、シート上にあるすべての図形を選択して、サイズや位置を一括で変更するものです。

コードの基本構造

Sub 一括変更()
    Dim shp As Shape
    ' シート上のすべての図形をループ
    For Each shp In ActiveSheet.Shapes
        ' 図形の高さと幅を設定
        shp.LockAspectRatio = msoFalse  ' アスペクト比を固定しない
        shp.Height = 150
        shp.Width = 200
        ' 図形の位置をC3セルの位置に設定
        shp.Top = Range("C3").Top
        shp.Left = Range("C3").Left
    Next shp
End Sub

このVBAコードを使えば、シート上のすべての図形の高さを150、幅を200に設定し、セルC3の位置に揃えることができます。これにより、手動での調整を省略でき、非常に効率的です。

VBAコードの解説

* `For Each shp In ActiveSheet.Shapes` は、シート上にあるすべての図形（Shapeオブジェクト）を順番に処理する部分です。
* `shp.LockAspectRatio = msoFalse` は、図形のアスペクト比を解除するための設定です。これを行わないと、サイズ変更時に縦横比が維持されてしまうため、自由にサイズを変更できません。
* `shp.Height = 150` と `shp.Width = 200` は、図形の高さと幅をそれぞれ150と200に設定する部分です。
* `shp.Top = Range(“C3”).Top` と `shp.Left = Range(“C3”).Left` は、図形の位置をセルC3の位置に合わせる部分です。

Excel図形一括選択VBAを使った実践的な活用法

ここからは、実際にExcelで図形を操作する際に役立つVBAコードの応用例をご紹介します。これらのテクニックを使うことで、日々の作業を大幅に効率化できます。

特定の図形のみを選択して一括変更する方法

シート上のすべての図形ではなく、特定の図形だけを選択して変更したい場合、次のようなコードを使います。

Sub 特定の図形変更()
    Dim shp As Shape
    ' 図形名で選択
    Set shp = ActiveSheet.Shapes("図形名") ' 変更したい図形の名前を指定
    ' 図形の高さと幅を変更
    shp.Height = 150
    shp.Width = 200
    ' 図形の位置をC3セルに合わせる
    shp.Top = Range("C3").Top
    shp.Left = Range("C3").Left
End Sub

ここで重要なのは、`Set shp = ActiveSheet.Shapes(“図形名”)` という部分です。このように、図形名を指定することで、特定の図形を選択して操作することができます。

複数の図形を条件で選択して一括変更する方法

複数の図形を選択し、それらをまとめて変更する場合は、次のコードを使います。

Sub 複数の図形変更()
    Dim shp As Shape
    ' シート上のすべての図形をループ
    For Each shp In ActiveSheet.Shapes
        ' 図形の種類を条件に変更
        If shp.Type = msoPicture Then ' 図形が画像の場合のみ
            shp.Height = 150
            shp.Width = 200
            shp.Top = Range("C3").Top
            shp.Left = Range("C3").Left
        End If
    Next shp
End Sub

このコードでは、`If shp.Type = msoPicture Then` という条件を使って、画像（msoPicture）のみを選択して変更しています。こうすることで、他の図形（例えばテキストボックスなど）には影響を与えません。

Excel 図形 一括 選択 VBAに関する疑問解決

Q1: VBA初心者でも簡単に図形を一括変更できますか？

A1: はい、VBAコードは非常にシンプルで直感的に書けます。初心者でもコピペして使えるコードが多く、すぐに作業を効率化できます。

Q2: 複数の図形を選択する際に注意点はありますか？

A2: 注意点としては、図形の種類によって処理方法が異なる場合があることです。条件に応じてコードを調整しましょう。

今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？

いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」

あなたはこんな経験はありませんか？

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決！

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

Excelで図形を一括で選択して変更するVBAコードを使うことで、手作業では考えられないほど作業を効率化できます。特にプレゼン資料や報告書の作成時に、位置やサイズを統一する作業が簡単になります。自動化することで、時間と労力を大幅に節約できるので、ぜひこのVBAコードを試してみてください。