VBA・マクロ | Excel GO! GO！

Excelマクロ(VBA)で複数のシート上のグラフに同一の処理を行うには？

Go — Thu, 01 Nov 2018 11:25:49 +0000

Excelファイル内に複数のシートがあり、この中にグラフがいくつも入っているとします。

これらのグラフに対して同じ処理を行いたい！でも、これをの作業を何回も繰り返すのは大変なんだよな～、手作業していたら…日が暮れてしまうんだよ。。。

というような状況、ありますよね？

今回はこの、複数のシート内にあるグラフに対して、同じ処理を行うという問題に対処したいと思います。

さて、今回の問題、どう取り扱いましょうか？

実はこの問題、シートの数を上手に取得すれば、For Next文で簡単に処理できるんですよ。

複数のシートにあるグラフに同一の処理を施す、という作業を効率よく行いたいあなた！

是非この方法を参考にしてみてくださいね。
このページの中では、今回紹介する処理を組み込んだExcelファイルをダウンロードできる
ようにしています。

これを使えば、一からExcelを作り込む必要もありませんよ。ファイルを手にした瞬間、作業スピードは一気に早まります！是非使ってみてくださいね。

では本編スタートです！

『複数のシート内にあるグラフに同じ処理を施す』には？まずは問題を整理しよう！

今回解決するのは、複数のシート内にあるグラフに同じ処理を施すという大変な作業をExcelにまかせて手軽に自動で終わらせたいと
いうものですね。

この作業を手作業で行うには、

①グラフを配置しているシートに移動し、
②グラフを変更（または変更をマクロで実施）
③さらにシートを切り替え、
④このシート内のグラフに変更を施す。
⑤この動作を全てのシートに対して実施

という手順をとるのが普通なのではないでしょうか。一つひとつの作業はさほど難しいものではありませんよね。しかし、作業を組み合わせて行わないといけませんし、この作業を必要な数だけ繰り返さなければいけません。これが大変なんですよね～。お悩みわかります！

この手順をExcelで自動化してしまいましょう！

『複数のシート内にあるグラフに同じ処理を施す』解決の方針をチェック！

ここでは、複数のシート内にあるグラフに同じ処理を施すという作業をExcelに実施させるためにはどうすればよいかをみていきます。

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。題材として、シート内にあるグラフの凡例のサイズや位置を揃えるという問題を取り扱います。この作業をマクロ化する方法は、下の関連ページで紹介していますので、是非チェックしてみてくださいね。

2018.05.12

Excelマクロでグラフの凡例の位置やサイズを揃える!VBAでの解決法を紹介!

Excelでたくさんのグラフを作って、このグラフをワードなどに貼り付け資料をつくるという作業、結構頻繁にありますよね。Excelを使えば、お手軽にグラフが作れるので便利なのですが、いつの間にか凡例の位置やサイズが変わって...

一つひとつ手作業で行うには、上で書いたように

という手作業が必要でしたよね？ではExcelマクロで同じことを行うための手順を見ていきましょう。次の手順で処理を行わせます。

まず、指定したシート内の各グラフに施す処理をVBAで記述しておきます。今回の場合は、関連ページで紹介しているマクロがこれに該当しますね。

次にExcel内に存在しているシートの数を取得。

シート数が取得できたら、これをFor Next文で使い、すべてのシートに処理を行います。

これをVBAで書けば、今回の複数のシート内にあるグラフに同じ処理を施すという作業は一発で一瞬で完了します！しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありません！

『複数のシート内にあるグラフに同じ処理を施す』問題をExcelで解決！

では複数のシート内にあるグラフに同じ処理を施すという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！


'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub グラフの凡例のサイズと位置を揃える()
Dim objChart As Object
Dim LegendLeft As Single
Dim LegendTop As Single
Dim LegendHeight As Single
Dim Lengend As Single
'
On Error GoTo ErrorHandler
'
If ActiveChart Is Nothing Then
    MsgBox "アクティブなグラフがありません"
    Exit Sub
End If
'
'アクティブチャートの凡例のサイズを取得します
With ActiveChart.Legend
    LegendLeft = .Left
    LegendTop = .Top
    LegendHeight = .Height
    legendwidth = .Width
End With
'
For i = 1 To Sheets.Count
    Sheets(i).Select
    '全てのチャートの凡例サイズを上で取得した値にする
    For Each objChart In ActiveSheet.ChartObjects
        With objChart.Chart.Legend
            .Left = LegendLeft
            .Top = LegendTop
            .Height = LegendHeight
            .Width = legendwidth
        End With
    Next
Next
'
ErrorHandler:
Exit Sub
'
End Sub

この中の

Sheets.Count

がファイル内のシート数を表しています。一つのシートで処理が済むごとに、iの数が

Sheets.Count

まで大きくなり、

Sheets(i).select

でiに応じたシートを選択。選択されたシートに対して凡例の情報を書き換えていくマクロが実行されていきます。

まとめ

今回は、『複数のシート内にあるグラフに同じ処理を施す』という処理をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

という地味で辛い作業を、

・Sheets.Countでファイル内のシート数を取得
・これをFor Next文に使って、シートの数だけマクロを繰り返す

という手順でマクロを繰り返し実行するところがポイントです。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

ExcelVBAで使用できる機能をフルに使ってシンプルに作ることもできます。ただこれにはそれなりの勉強が必要。すぐには使えず、今すぐ問題を解決したいとい状況にはあいません。ですので、このブログで紹介するマクロは、できるだけ簡単なもの、VBAにそう詳しくなくても読めそうなもの、手を加えやすいものになるように心がけています。

マクロって難しそう、と敬遠していた方にマクロって意外とお手軽ね！と感じていただき、これを応用すればあの作業も自動化できるかも！と次のステップやアクションにつなげていただければと思います。

Excelのスキルを一気に向上させて、ライバルに差をつけたい、仕事を一気にさばいてスピードアップしたい、スキルを身に着けて転職や就職に役立てたいと思ったあなた！ぜひ下のボタンをクリックしてください！
締め切りが迫っているので期間限定で「短期間で実力の向上が見込めるお手頃な方法」を紹介していますよ。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『複数のシート内にあるグラフに同じ処理を施す』Excelサンプルをプレゼント

今回紹介した
・Sheets.Countでファイル内のシート数を取得
・これをFor Next文に使って、シートの数だけマクロを繰り返す
という機能をもたせ、ファイル内にある全てのグラフの凡例を調整する機能を実装したExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。

お好きな形式のファイルをダウンロードして、実際に動かしてみたり、あなたの課題にあわせてExcelを調整して作業時間短縮、効率化に役立ててみてください！

legend_move2.bas

1 ファイル 1.13 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

今回はマクロを記述するエディタの使い方をチェックしていきましょう。具体的には、VBAを記述するための手順や保存の方法、記述されたマクロの実行方法を紹介していきます。この記事の内容が理解できたら、ソースがあればマク...

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

ExcelのマクロはVBEと呼ばれる専用のエディタ内の標準モジュールに記述します。今回はこの記述したマクロを複数のファイルで使用する方法の紹介です。エディタの使い方やマクロの実行の仕方などは関連記事がありますので、これら...

The post Excelマクロ(VBA)で複数のシート上のグラフに同一の処理を行うには？ first appeared on Excel GO! GO！.

Excelマクロ(VBA)でWeb上のデータや画像を自動取得!

Go — Mon, 24 Sep 2018 13:24:50 +0000

Webサイトのデータを入手して分析したり、表示されている画像を収集したい。
でも、これをの作業を何回も繰り返すのは大変なんだよな～、でも手作業していたら…日が暮れてしまうんだよ。。。

こんなお悩みはありませんか？

今回はWeb上のデータを収集する作業を効率よく、ささっと片付けてしまう方法を紹介していきます！

さて、今回の問題にどう対処するか？

この問題、Excelのマクロ（VBA）を使えば簡単に処理できるんですよ。

Webサイト上のデータや画像を効率よく収集したいあなた！

是非この方法を参考にしてみてくださいね。
このページの中では、今回紹介するWebサイトのデータおよび画像を収集するマクロを組み込んだExcelファイルがダウンロードできる
ようにしています。

では本編スタートです！

『Web上のデータや画像を収集する』には？まずは問題を整理しよう！

今回解決するのはWebサイトのデータを入手したり、表示されている画像を収集したりという作業をExcelにまかせて手軽に自動で終わらせたいという課題ですね。

この作業を手作業で行うには、
・データ収集先のWebサイトを開く
・記載されている内容を読む
・必要な部分をコピーして
・コピーした情報をExcelに貼り付け。
・画像が保存したければ、保存場所と保存する名前を設定してダウンロード。
・この動作を全ての対象に対して実施。

という手順をとるのが普通なのではないでしょうか。一つひとつの作業はさほど難しいものではありませんよね。しかし、作業を組み合わせて行わないといけませんし、この作業を必要な数だけ繰り返さなければいけません。これが大変なんですよね～。

では、この手順をExcelで自動化してしまいましょう！

『Web上のデータや画像を収集する』解決の方針をチェック！

ここでは、Web上のデータや画像を収集するという作業をExcelに実施させるためにはどうすればよいかをみていきます。

例として、いろいろな旬な情報のランキングデータを発信しているオリコンニュース（https://www.oricon.co.jp/）の中の、CDシングルのデイリーランキングを取得するという作業を取り上げたいと思います。

一つひとつ手作業で行うには、上で書いたように

デイリーシングルランキングが記載されているホームページに移動し、
ホームページの構成を確認して、ページの内容を読み、
ランキング１位から順番に、シングルのタイトルとアーティスト名をコピー。そしてコピーしたデータをExcelに保存。

ジャケットの写真もダウンロードしたければ、この保存先、保存名をきめてダウンロード。

この動作を調べたい順位のデータまで繰り返して実施

という手作業が必要でしたよね？

ではこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。Excelマクロで同じことを行うため、次の手順で処理を行わせます。

データ取得先のURLは、定点観測のように何度も同じものを使うと考え、Excelに記載しておくことにします。VBAのソース内に記載しても構いませんが、修正がしやすいようにExcelに記載する方法を採りました。

Excelで作業にもう一つ前準備が必要。

下のように、VBEの「ツール」メニューから「参照設定」を選択し、

参照可能なライブラリファイルの中から、

Microsoft HTML Object Library
Microsoft Internet Controls

を探し、これらにチェックを入れて利用可能な状態にしておいてください。

続いて、何位までのデータを取得するかを決定。そしてジャケット画像の保存先を決定します。

ここからいよいよデータの取得に移ります。

上で設定した情報をもとに、デイリーシングルランキングが表示されたページをInternet Exploreで開き、１位からタイトル、アーティスト名に関する情報を取得。

データを取得したらこのデータをExcelに書き出し、

掲載されているジャケット写真を特定して、動画が保存されているURLを取得。

ジャケット写真の保存名をタイトル名+.pngとして、指定した画像保存先にダウンロード。

この操作を指定した順位まで繰り返します。

Oriconシングルデイリーランキングは、10位づつ1ページに記載されているので、11位から、21位からのデータを取得する必要がある場合には、次のページへ移動するリンクを探し、これをクリックする動作をさせてページ移動するという動作を加えます。

これをVBAで書けば今回のWeb上のデータや画像を収集する作業は一発で完了！

今回Excelにやらせる作業は人の手で行う作業とよく似ていますが、処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありませんよ。

『Web上のデータや画像を収集』する課題をExcelで解決！

ではOriconのシングルデイリーランキングデータとこのジャケット画像を取得するいう課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！


'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
'画像をダウンロードするWindows APIのURLDownloadToFile関数を使用するためのAPIの宣言
Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
'キャッシュを削除するWindows APIのDeleteUrlCacheEntry関数を使用するためのAPIの宣言
Declare Function DeleteUrlCacheEntry Lib "wininet" _
    Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
'Sleep関数を使用するためのAPIの宣言
#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub Get_Oricon_Ranking()
Dim TargetNum As Integer      '取得するデータの数
Dim Title(1000) As String     'タイトル名
Dim Artist(1000) As String    'アーティスト名
Dim TargetUrl As String       'データを調べるURL
Dim PathImage As String       'ジャケット画像の保存先
Dim Ita As Integer            '繰り返し数
Dim Amari As Integer          'TargetNumの1の位
Dim objIE As InternetExplorer 'IEオブジェクトを準備
Dim objaItemTags As Object    '全aタグを格納するオブジェクト
Dim objaItem As Object        '抽出したaタグを格納するオブジェクト
'
On Error GoTo Errhandler
'
Sheets(1).Range("C5:D34").Select
Selection.ClearContents
'データ取得先のURL
Url = Cells(2, 3)
'インプットボックを使ってTargetNumを取得
TargetNum = InputBox _
("何位までデータを取得しますか?", "30までの数字を入力")
'インプットボックスで取得するデータに関するエラー処理
If TargetNum > 30 Or TargetNum <= 0 Then
   MsgBox "30までの整数を入れてください"
   GoTo Lastline
End If
'
Ita = Int(TargetNum / 10) + 1  '処理の繰り返し数
Amari = TargetNum - _
        Int(TargetNum / 10) * 10 'TargetNumの1の位
'
'ジャケットの画像を保存するフォルダ指定のためダイアログボックスを利用
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
'キャンセルボタンクリック時にはマクロを終了
If dlg.Show = False Then
    GoTo ErrHandler2
Else
    '選択したディレクトリを画像保存フォルダに設定
    PathImage = dlg.SelectedItems(1)
End If
'新しいIEオブジェクトを作成してセット
Set objIE = CreateObject("Internetexplorer.Application")
'IEを表示
objIE.Visible = True
'IEでURLを開く
objIE.navigate Url
'読み込み待ち
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
    DoEvents
Loop
Sleep 1000
'読み込み待ち終わり
'HTMLドキュメントオブジェクトを準備
Dim htmlDoc As HTMLDocument
'objIEで読み込まれているHTML
Set htmlDoc = objIE.document
For i = 1 To Ita
    If i < Ita Then 
        For j = 1 To 10 
            'ClassのNameがtitleのinnnrTextを取得してTitleに
            Title(j) = htmlDoc.getElementsByClassName("title")(j - 1).innerText
            'ClassのNameがnameのinnnrTextを取得してArtistに 
            Artist(j) = htmlDoc.getElementsByClassName("name")(j - 1).innerText 
            'Excelシートにデータを書き出す 
            Cells(4 + (i - 1) * 10 + j, 3) = Title(j)
            Cells(4 + (i - 1) * 10 + j, 4) = Artist(j)
            'TagがImgのデータをすべて調べる
            For Each img In htmlDoc.getElementsByTagName("img") 
                'IMG 画像URL imgURL = img.src 
                '画像ファイル名 fileName = Title(j) + ".png" 
                '画像保存先(+画像ファイル名） 
                savePath = PathImage + "\" + fileName 
                'キャッシュクリア 
                cacheDel = DeleteUrlCacheEntry(imgURL) 
                'IMGのAltがTilteと同じ場合に画像をダウンロードする 
                If img.alt = Title(j) Then
                     ret = URLDownloadToFile(0, imgURL, savePath, 0, 0)
                     Exit For 
                End If
            Next img Next
        '次のページへの移動 
        'IDやNAMEが振られていないので全aタグを調べ
        'outerHTMLが目的のものの場合にクリック 
        Set objaItemTags = objIE.document.getElementsByTagName("a") 
        For Each objaItem In objaItemTags 
            If i >= 3 Then
                GoTo SearchEnd
            ElseIf i = 1 Then
                If InStr(objaItem.outerHTML, "11位～20位") > 0 Then
                    objaItem.Click
                    Exit For
                End If
            ElseIf i = 2 Then
                If InStr(objaItem.outerHTML, "21位～30位") > 0 Then
                    objaItem.Click
                    Exit For
                End If
            End If
        Next
        '読み込み待ち
        Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
            DoEvents
        Loop
        Sleep 1000
        '読み込み待ち終わり
    ElseIf Amari <> 0 Then
        For j = 1 To Amari  '上の処理と同様の処理を繰り返し数を変えて実施
            Title(j) = htmlDoc.getElementsByClassName("title")(j - 1).innerText
            Artist(j) = htmlDoc.getElementsByClassName("name")(j - 1).innerText
            Cells(4 + (i - 1) * 10 + j, 3) = Title(j)
            Cells(4 + (i - 1) * 10 + j, 4) = Artist(j)
                For Each img In htmlDoc.getElementsByTagName("img")
                    imgURL = img.src
                    fileName = Title(j) + ".png"
                    savePath = PathImage + "\" + fileName
                    cacheDel = DeleteUrlCacheEntry(imgURL)
                    If img.alt = Title(j) Then
                        ret = URLDownloadToFile(0, imgURL, savePath, 0, 0)
                        Exit For
                    End If
                Next img
        Next
    End If
Next
'
SearchEnd:
'
'IE終了
objIE.Quit
Set objIE = Nothing
'
GoTo Lastline
'
ErrHandler2:
    MsgBox "画像を保存するフォルダを選択してください"
    GoTo Lastline
'
Errhandler:
    MsgBox "データを取得する「数字」を入力してください"
    GoTo Lastline
'
Lastline:
'
End Sub

マクロの下準備とダイアログボックス使用時のエラー処理

Get_Oricon_Rankingというのが今回のマクロの名称ですが、このマクロの記述が始まる前に、数行コードがありますよね。これらは、今回使用する、次の3つの機能を使うための前準備です。同じように記載すれば他のマクロでもこれらの機能が使えるようになります。

画像をダウンロードする
キャッシュを削除する
Sleep関数を使用する

データを探しに行くサイトのURLは、ExcelのC3セルにかかれているとして、以下のコードで、Urlという変数に代入されます。

Url = Cells(2, 3)

何位までのデータを取得するか、画像データをどこに保存するかについては、それぞれダイアログボックスを介して入力する方式としました。

自分でマクロを作成し、自分だけがこれを利用するならば良いですが、不特定多数の人が使用するマクロの場合、ダイアログボックスの使用にはちょっと注意が必要です。入力してほしいデータとことなるデータを入力するかもしれませんから、このような場合への備えが必要です。

今回の例では、取得するランキング順位 TargetNumには数字を入力してほしいのですが、もしかすると数字ではない文字や現実的ではない数字が入力されるかもしれません。今回は、TargetNumを整数だと宣言し、これ以外のものが入力される、あるいは何も入力サれなければメッセージを表示してマクロが終了するように対処しています。加えて、整数だったとしても1～30の整数でなければ同じようにメッセージを表示してマクロが終了します。

また、画像の保存先を選んでもらう際に、ダイアログボックスの「キャンセル」ボタンが押されてしまった場合もメッセージを表示してマクロが終了します。

Excel VBAでClass属性のデータを取得

上で書いたところまでが、マクロ上の下準備。

Web上のデータを取得する部分で大事な部分は、以下の部分。前部はVBAでInternet Exploreを介してOriconのホームページを開く動作を行う部分です。Webページがきれいに読み込まれてから次の処理を行わないと、処理がうまく進まない場合がありますので、読み込みが終了するのを待つコードを入れているところもポイントです。

後半は、Webページの内容が記述サれているHTMLから条件に合う情報を取り出す部分。Oriconのホームページの場合、タイトルやアーティスト名にClass属性がついていて、これにそれぞれtitleとnameという名称がつけられていますので、情報取得にこれを利用しています。


'新しいIEオブジェクトを作成してセット
Set objIE = CreateObject("Internetexplorer.Application")
'IEを表示
objIE.Visible = True
'IEでURLを開く
objIE.navigate Url
'読み込み待ち
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE
DoEvents
Loop
Sleep 1000
'読み込み待ち終わり
'HTMLドキュメントオブジェクトを準備
Dim htmlDoc As HTMLDocument
'objIEで読み込まれているHTML
Set htmlDoc = objIE.document

.....

'ClassのNameがtitleのinnnrTextを取得してTitleに
Title(j) = htmlDoc.getElementsByClassName("title")(j - 1).innerText
'ClassのNameがnameのinnnrTextを取得してArtistに
Artist(j) = htmlDoc.getElementsByClassName("name")(j - 1).innerText

Excel VBAでaタグのaltの情報を使って他のページへ移動

続いて、次のページへ移動する処理。Oriconのホームページの場合、次のページへ移動するリンク部分に、HTMLのIDやNAME、Classなどの属性がなく単なるaタグしかついていません。このため、ページ内のすべてのaタグ付きのHTMLを調べて、”11位～20位”や”21位～30位”と表示されている文字列を頼りに、お目当てのaタグを抽出しています。


        'IDやNAMEが振られていないので全aタグを調べ
        'outerHTMLが目的のものの場合にクリック 
        Set objaItemTags = objIE.document.getElementsByTagName("a") 
        For Each objaItem In objaItemTags 
            If i >= 3 Then
                GoTo SearchEnd
            ElseIf i = 1 Then
                If InStr(objaItem.outerHTML, "11位～20位") > 0 Then
                    objaItem.Click

Excel VBAでTagNameの情報を使って画像を保存

最後のポイントは、画像の保存部分。画像はimgというTagNameがついていますので、これを画像のダウンロードに利用します。imgというTagNameのデータをすべて調べていきますが、Oriconのホームページの場合、ジャケット写真のaltの情報がタイトルと同じでしたので、これを利用してお目当ての画像を特定しました。特定したファイルは、名前をつける作業も毎度行うと面倒なので、あとで見分けがつけられるように、タイトル名と同じ名前を自動で割り振り、png形式の画像ファイルとして保存しています。


            For Each img In htmlDoc.getElementsByTagName("img") 
                'IMG 画像URL imgURL = img.src 
                '画像ファイル名 fileName = Title(j) + ".png" 
                '画像保存先(+画像ファイル名） 
                savePath = PathImage + "\" + fileName 
                'キャッシュクリア 
                cacheDel = DeleteUrlCacheEntry(imgURL) 
                'IMGのAltがTilteと同じ場合に画像をダウンロードする 
                If img.alt = Title(j) Then
                     ret = URLDownloadToFile(0, imgURL, savePath, 0, 0)
                     Exit For 
                End If
            Next img Next

まとめ

今回は、『Web上のデータや画像を収集する』という作業をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

・データ収集先のWebサイトを開く
・記載されている内容を読む
・必要な部分をコピーして
・コピーした情報をExcelに貼り付け。
・画像が保存したければ、保存場所と保存する名前を設定してダウンロード。
・この動作を全ての対象に対して実施。

という地味で辛い作業を、

・Excel上にデータ取得先のURLを記述
・ダイアログボックスに、何位までデータを取得するか入力
・ダイアログボックスで画像保存先を設定
・VBAでInternet Exploreを介して目的のサイトにアクセス
・Class属性、TagNameを利用して目的の情報を取得
・シングルタイトルとアーティスト名をExcelに書き込み、画像を名前をつけてダウンロード
・aタグを利用してページの切り替え

という手順にしてこれをマクロで記述し、自動化するところがポイントです。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

Excelのスキルを一気に向上させて、ライバルに差をつけたい、仕事を一気にさばいてスピードアップしたい、スキルを身に着けて転職や就職に役立てたいと思ったあなた！ぜひ下のボタンをクリックしてください！
締切が迫っているので期間限定で「短期間で実力の向上が見込めるお手頃な方法」を紹介していますよ。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『Web上のデータや画像を収集する』課題を解決するExcelサンプルをプレゼント

今回紹介した『Web上のデータや画像を収集する』という機能をもたせたマクロを実装したExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。

get_oricon_ranking.xlsm

1 ファイル 29.59 KB

download

get_oricon_ranking.bas

1 ファイル 6.08 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excelマクロ(VBA)でWeb上のデータや画像を自動取得! first appeared on Excel GO! GO！.

Excel VBA(マクロ)でゴールシークを複数のセルに対して実行するには?

Go — Tue, 17 Jul 2018 16:57:18 +0000

Excelが持つ便利な機能に、ゴールシークというものがあります。

これは、数式が書かれたセルの演算結果が、目標として設定する値になるように、計算に使った値を変更してくれるもの。答えが目標値になるように、逆算してくれる機能といってもいいかもしれませんね。

しかし、ゴールシークをかけたいセルが複数ある場合は、設定が面倒。10箇所を対象にゴールシークを使うという場合でも、ちょっとうんざりしてしまいます。

今回はExcelが持つ便利なゴールシーク機能を、憂鬱な気持ちにならずに、何箇所にでも使えるようにしてしまう方法を紹介します。

さて、今回の問題にどう対処するか？

実はこの問題、Excelのマクロを使うと簡単に処理できるんですよ。

ゴールシークを効率よく使いたいあなた！

是非この方法を参考にしてみてくださいね。
このページの中では、今回紹介するゴールシークを複数のセルに対して実行するマクロを組み込んだExcelファイルをダウンロードできる
ようにしています。

では本編スタートです！

『ゴールシークを複数のセルに対して実行』には？まずは問題を整理しよう！

今回解決するのはゴールシークを複数のセルに対して実行するという大変な作業をExcelにまかせて手軽に自動で終わらせたいという課題。

この作業を手作業で行うには、

1.「データ」メニューの中の「What-If分析」を選択
2.表示されるメニューから「ゴールシーク」を選択

3.さらにセルや目標値の設定を行い、ゴールシークを実行

4.この動作をゴールシークを実行したい全てのセルに対して実施

という手順をとるのが普通なのではないでしょうか。1.、2.の作業も何度も行うとなると面倒ですし、なにより3．の作業が大変。いくつも設定しているうちに間違いも起こしそうですよね。

では、この手順をExcelで自動化してしまいましょう！

『ゴールシークを複数のセルに対して実行する』方針をチェック！

ここでは、ゴールシークを複数のセルに対して実行するという作業をExcelに実施させるためにはどうすればよいかをみていきます。
一つひとつ手作業で行うには、上で書いた

この作業を手作業で行うには、

「データ」メニューの中の「What-If分析」を選択
表示されるメニューから「ゴールシーク」を選択
さらにセルや目標値の設定を行い、ゴールシークを実行
この動作をゴールシークを実行したい全てのセルに対して実施

という手作業が必要でしたよね？

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。仮にゴールシークの対象は次のようなものとしましょうね。

2つの種類の異なったデータがあり、一方にある値（倍率）をかけたものと、もう一方のデータの差分をとります。ゴールシーク実行前の差分は右のグラフに表示された通りです。

ここから、各差分が0になるように、倍率をゴールシークで調整していきますよ！Excelマクロでで次の手順の処理を行わせます。

1.ゴールシークを実行する回数をInputBoxを使って取得

2.ゴールシークの目標値をInputBoxを使って取得

3.ゴールシークを指定の回数だけ実行

これをVBAで書けば今回のゴールシークを複数のセルに対して実行するという作業は一発で一瞬で完了！

しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありません！

『ゴールシークを複数のセルに対して実行する』作業をExcelで自動化！

ではゴールシークを複数のセルに対して実行するという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！

'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub ゴールシークを複数回実行()
Attribute ゴールシークを複数回実行.VB_ProcData.VB_Invoke_Func = " \n14"
Dim i As Integer
Dim Target As Single
'
On Error GoTo errhandler
'
Numofdata = InputBox _
("ゴールシークを実行する回数を入力", "入力（1/2）")
If Numofdata <> Int(Numofdata) Then
    MsgBox "整数を入力してください"
    Exit Sub
End If
Target = InputBox _
("ターゲットとする数字を入力", "入力（2/2）")
'
If IsNumeric(Target) Then
    For i = 1 To Numofdata
        Cells(3 + (i - 1), 6).GoalSeek Goal:=Target, _
        ChangingCell:=Cells(3 + (i - 1), 4)
    Next
    Exit Sub
Else
    MsgBox "ターゲットには数字を入力してください"
End If

errhandler:
    MsgBox "正しく入力してください"
End Sub

大事なゴールシークを複数回実行する部分は、

Cells(3 + (i - 1), 6).GoalSeek Goal:=Target, _ ChangingCell:=Cells(3 + (i - 1), 4)

の一文。シンプルでしょ？Cells( , )を使ってiを変えながら複数回ゴールシークを実行します。

ここで、Numofdataはゴールシークを繰り返す回数。Targetはゴールシーク実行後に対象のセルがとってほしい値（目標値）です。ゴールシークを繰り返す回数は整数であってほしいので、If Numofdata <> Int(Numofdata) でInputBoxから入力されたものが整数かどうかを確認し、整数でなければメッセージを表示して入力内容を見直すようアラームを出します。

同様に、Targetは、文字であっては困りますので、If IsNumeric(Target) ThenでインプットされたTargetが数字かどうかを判断し、これが数字であればゴールシークを指定回数実行。もし数字でなければ、メッセージを表示して入力を見直すようアラームを出します。

まとめ

今回は、『ゴールシークを複数のセルに対して実行する』という問題をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

・「データ」メニューの中の「What-If分析」を選択
・表示されるメニューから「ゴールシーク」を選択
・さらにセルや目標値の設定を行い、ゴールシークを実行
・この動作をゴールシークを実行したい全てのセルに対して実施

という地味で辛い作業を、

・ゴールシークを実行する回数をInputBoxを使って取得
・ゴールシークの目標値をInputBoxを使って取得
・ゴールシークを指定の回数だけ実行

という手順で操作を行うマクロにするところがポイントです。

上で紹介したExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

Excelのスキルを一気に向上させて、ライバルに差をつけたい、仕事を一気にさばいてスピードアップしたい、スキルを身に着けて転職や就職に役立てたいと思ったあなた！ぜひ下のボタンをクリックしてください！
募集締め切りが迫っているので期間限定で「短期間で実力の向上が見込めるお手頃な方法」を紹介していますよ。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『ゴールシークを複数のセルに対して実行する』Excelサンプルをプレゼント

今回紹介した

ゴールシークを実行する回数をInputBoxを使って取得
ゴールシークの目標値をInputBoxを使って取得
ゴールシークを指定の回数だけ実行

という処理を行うマクロを実装して『ゴールシークを複数のセルに対して実行する』という機能を持たせたExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。

goalseek.xlsm

1 ファイル 43.12 KB

download

goalseek.bas

1 ファイル 0.91 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excel VBA(マクロ)でゴールシークを複数のセルに対して実行するには? first appeared on Excel GO! GO！.

Excel マクロ(VBA)でグラフ(散布図)を大量自動作成!

Go — Mon, 16 Jul 2018 03:30:58 +0000

Excelはグラフを簡単につくれるのも魅力ですが、つくらなければいけないグラフが多いと、この作業も大変。

今回は大量のグラフが効率よく、ささっと作れてしまう方法を紹介していきます！

今回の問題にどう対処するか？

実はこの問題、Excelのマクロ活用すると簡単に処理できるんですよ。

大量のグラフを効率よく作成したいあなた！

是非この記事で紹介する方法を試してみてくださいね。

このページの中では、今回紹介する大量のグラフ一度に作成できるマクロを組み込んだExcelファイルをダウンロードできるようにしています。

では本編スタートです！

『大量のグラフを一度に自動作成する』には？まずは問題を整理しよう！

今回解決するのは、大量のグラフを作成するという大変な作業を、手軽に、すばやく、そして自動で終わらせるという課題。今回は特に「散布図」の作成に焦点をあてますよ。

この作業を手作業で行うには、

空のグラフを作って、軸のタイトル、凡例のなどを設定
系列を追加し、名前、X、Yのデータの範囲を指定
系列の表示に関する設定（マーカーや線の色等）を変更
系列を追加する作業を表示するデータの数だけ繰り返し、グラフを完成させ、
作成するグラフの数だけこれを繰り返す

という手順をとるのが普通なのではないでしょうか。一つのグラフに含める系列が多いときなど、３．の作業が面倒で大変なんですよね～。２．の作業も参照先を間違えたりする可能性もあり、設定とチェックが大変です。

今回紹介するサンプルでは、９個の系列が含まれた散布図を６つ作りますが、これを手作業で作ったら２０分くらいはかかってしまうのではないでしょうか。

グラフをつくるだけで貴重な時間をこんなに使ってはもったいないですので、この手順をExcelで自動化してしまいましょう！

『自動で大量にグラフを作成する』方針をチェック！

ここでは、散布図を大量に自動で作成する作業をExcelに実施させるためにはどうすればよいかをみていきます。

この作業を手作業で行うには、

空のグラフを作って、軸のタイトル、凡例のなどを設定
系列を追加し、名前、X、Yのデータの範囲を指定
系列の表示に関する設定（マーカーや線の色等）を変更
系列を追加する作業を表示するデータの数だけ繰り返し、グラフを完成させ、
作成するグラフの数だけこれを繰り返す

という手作業が必要でしたよね？

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。

まずは下準備。Excelシート上に、下の図のようにグラフ化するデータを整理しましょう。これは普通に行う作業ですね。

（出典：気象庁ホームページ https://www.data.jma.go.jp/gmd/risk/obsdl/index.php）

次に、作成するグラフに関する設定を行います。Input Boxを使ったり、プログラムソーズに直接書き込んで設定しても良いのでしょうが、設定項目が多いですし、簡単に設定が変えられるものが良いと思いましたので、今回紹介するサンプルでは、下の設定項目をシート内に書き込んでおく形式にしました。

作成するグラフの数、この中に入れる系列の数、グラフの大きさ
X軸、Y軸のラベル名、最大値、最小値、主メモリ
系列の名前、Xとして参照するデータの範囲（初めのセルと最後のセルを指定）、Yとして参照するデータの範囲（同じく初めのセルと最後のセルを指定）

ここまでできたら、これらのデータ、設定をマクロで読み込んで、次の手順で散布図を作っていきます。

作成するグラフの数、系列の数、グラフの大きさを読み込む
作成するグラフのX軸とY軸の設定値を読み込む
新規グラフを作成し、X軸ラベルを追加し表示する文字を設定
Y軸ラベルを追加し表示する文字を設定
X軸の最小値、最大値、主メモリ、Y軸との交点を設定
X軸の目盛りの表示を日付形式に変更
Y軸の最小値、最大値、主メモリ、X軸との交点を設定
系列を追加し、系列名、Xの参照先、Yの参照先を設定し、線、マーカーの書式を設定
系列の追加を指定の数だけ繰り返して、凡例を追加し、この書式を設定
凡例の位置とプロットエリアの位置を調整
３～１０を作成するグラフの数だけ繰り返し

これをVBAで書けば今回の「大量のグラフを作成する」という作業は一発で一瞬で完了！

しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありません！

『大量の散布図を自動作成』をExcelで実現！

では大量のグラフ（散布図）を自動で作成するという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！
Excel 2013よりも前のExcelをお使いの方は、ソース内のコメントに従って、修正して使ってくださいね。


'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub 散布図を自動作成する()
'
Dim Numofgraph As Integer, Numofseries As Integer
Dim Xaxistitle(20) As String, Xmin(20) As Double
Dim Xmax(20) As Double, Xmajorunit(20) As Double
Dim Yaxistitle(20) As String, Ymin(20) As Double
Dim Ymax(20) As Double, Ymajorunit(20) As Double
Dim RGB1(10) As Long
Dim Graphwidth As Integer
Dim Graphheight As Integer
'
On Error GoTo errhandler
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'
'作成するグラフの数、系列の数、グラフの大きさを読み込む
Numofgraph = Cells(1, 2)  '最大20に設定
Numofseries = Cells(2, 2)  '最大10に設定
Graphwidth = Cells(3, 2)
Graphheight = Cells(4, 2)
'
'作成するグラフのX軸とY軸の設定値を読み込む
For i = 1 To Numofgraph
    Xaxistitle(i) = Cells(6, 1 + i)
    Xmin(i) = Cells(7, 1 + i)
    Xmax(i) = Cells(8, 1 + i)
    Xmajorunit(i) = Cells(9, 1 + i)
    Yaxistitle(i) = Cells(11, 1 + i)
    Ymin(i) = Cells(12, 1 + i)
    Ymax(i) = Cells(13, 1 + i)
    Ymajorunit(i) = Cells(14, 1 + i)
Next
'
'系列の色を設定
RGB1(1) = RGB(0, 0, 0)
RGB1(2) = RGB(255, 0, 0)
RGB1(3) = RGB(255, 192, 0)
RGB1(4) = RGB(146, 208, 80)
RGB1(5) = RGB(0, 176, 80)
RGB1(6) = RGB(0, 176, 240)
RGB1(7) = RGB(0, 112, 192)
RGB1(8) = RGB(0, 32, 96)
RGB1(9) = RGB(112, 48, 160)
RGB1(10) = RGB(255, 0, 255)
'
For i = 1 To Numofgraph
'グラフを作成
'AddChart2(スタイル：固定, 種類：固定,左の位置,上の位置,幅,高さ)
    ActiveSheet.Shapes.AddChart2(-1, xlXYScatterLines, 1170, _
    Graphheight * (i - 1), Graphwidth, Graphheight).Select
'************Excel2010まではこちらを利用************************
'AddChart(種類：固定,左の位置,上の位置,幅,高さ)
'    ActiveSheet.Shapes.AddChart(xlXYScatterLines, 1170, _
'    Graphheight * (i - 1), Graphwidth, Graphheight).Select
'***************************************************************
    With ActiveChart            '軸ラベルを追加する
        With .Axes(xlCategory)  'X軸ラベルの追加
            .HasTitle = True
            .AxisTitle.Text = Xaxistitle(i)
        End With
        With .Axes(xlValue)     'Y軸ラベルを追加
            .HasTitle = True
            .AxisTitle.Text = Yaxistitle(i)
        End With
'************Excel2010までは次の行をコメントアウト**************
        .ChartTitle.Delete
'***************************************************************
    End With
'X軸の設定
    '最小値
    ActiveChart.Axes(xlCategory).MinimumScale = Xmin(i)
    '最大値
    ActiveChart.Axes(xlCategory).MaximumScale = Xmax(i)
    '主メモリ
    ActiveChart.Axes(xlCategory).MajorUnit = Xmajorunit(i)
    'Y軸との交点
    ActiveChart.Axes(xlCategory).CrossesAt = -100000
    'X軸が日付でなければコメントアウト
    ActiveChart.Axes(xlCategory).TickLabels. _
    NumberFormatLocal = "yyyy/m/d"
'Y軸の設定
    ActiveChart.Axes(xlValue).Select
    '最小値
    ActiveChart.Axes(xlValue).MinimumScale = Ymin(i)
    '最大値
    ActiveChart.Axes(xlValue).MaximumScale = Ymax(i)
    'X軸との交点
    ActiveChart.Axes(xlValue).CrossesAt = -100000
'系列を追加（Numofseriesの数だけ繰り返す）
    For j = 1 To Numofseries
        ActiveChart.SeriesCollection.NewSeries
        '系列名設定
        ActiveChart.FullSeriesCollection(j).Name = _
        Cells(16 + 6 * (j - 1), 1 + i)
        'Xの参照先設定
        ActiveChart.FullSeriesCollection(j).XValues = _
        Range(Cells(17 + 6 * (j - 1), 1 + i).Value, _
        Cells(18 + 6 * (j - 1), 1 + i).Value)
        'Yの参照先設定
        ActiveChart.FullSeriesCollection(j).Values = _
        Range(Cells(19 + 6 * (j - 1), 1 + i).Value, _
        Cells(20 + 6 * (j - 1), 1 + i).Value)
        '系列の書式設定
        ActiveChart.FullSeriesCollection(j).Select
        With Selection
            '線を表示
            .Format.Line.Visible = msoTrue
            '線の色の設定
            .Format.Line.ForeColor.RGB = RGB1(j)
            '線のスムージングの設定
            .Smooth = True
            '線の幅設定
            .Format.Line.Weight = 0.75
            'マーカーの種類の設定
            .MarkerStyle = j
            'マーカーサイズの設定
            .MarkerSize = 4
            'マーカーの塗りつぶし設定 msoTrueで塗りつぶし
            .Format.Fill.Visible = msoFalse
            'マーカーの色設定
            .Format.Fill.ForeColor.RGB = RGB1(j)
        End With
    Next
    '凡例を追加
    ActiveChart.SetElement (msoElementLegendRight)
    '凡例の書式設定
    ActiveChart.Legend.Select
    With Selection.Format.Fill
        '凡例の塗りつぶし設定
        .Visible = msoTrue
        '塗りつぶし色の設定
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
    End With
    With Selection.Format.Line
        '凡例の枠設定
        .Visible = msoTrue
        '枠の色設定
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        '枠の色を薄くする
        .ForeColor.Brightness = -0.15
    End With
    With ActiveChart.Legend
        '凡例の左の位置設定
        .Left = 405
        '凡例の上の位置設定
        .Top = 27
    End With
    With ActiveChart.PlotArea
        'プロットエリアの左の位置設定
        .Left = 40
        'プロットエリアの幅設定
        .Width = 380
    End With
Next
GoTo endline
errhandler:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAuto
MsgBox "グラフ数(B1)、系列数(B2)の設定は正しいですか？" _
& vbCrLf & i & "番目のグラフの" & j & _
"番目の系列の設定にエラーがある可能性があります。" _
, , "確認してください"
endline:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAuto
End Sub

このマクロを実行すると、指定した情報に従ってズラズラっとグラフが自動作成されます。

系列が10個まで、作成するグラフが20個までの場合であれば、このマクロそのままで使用できますが、これより系列の数やグラフの数が多い場合は、Dimと書いている部分の（）内の数字を大きくして対応してください。

これにあわせて、Excelシート側も設定値を入れる部分を調整することもお忘れなく。

RGB1(1) = RGB(0, 0, 0)
RGB1(2) = RGB(255, 0, 0)
RGB1(3) = RGB(255, 192, 0)
RGB1(4) = RGB(146, 208, 80)
RGB1(5) = RGB(0, 176, 80)
RGB1(6) = RGB(0, 176, 240)
RGB1(7) = RGB(0, 112, 192)
RGB1(8) = RGB(0, 32, 96)
RGB1(9) = RGB(112, 48, 160)
RGB1(10) = RGB(255, 0, 255)

と書いている部分は、系列の色を設定している部分です。色をRGB値で指定していますが、ここはお好みに合わせて調整できますので、他の色でグラフを作りたい場合は、plus color等のサイトでRGB値を調べて調整してみてください。

また、

NumberFormatLocal = "yyyy/m/d"

という部分は、今回作成したグラフが日付を表すシリアル値を使うものでしたので、X軸の目盛りを日付形式の表示に変更しているところです。あなたが取り扱うデータが日付でなければ、この文は必要ありませんので、この行の先頭に’を入れてコメントアウトしてください。

関連記事（日付の取り扱い方）

2018.05.18

Excelグラフで目盛りの日付や時間を自由に設定する方法とは?

一年を通してのデータのトレンドを確認したいというとき、データをグラフに表示しますよね。この時に問題になるのが、横軸の日付や時刻の取扱い。 Excelに準備されている「折れ線グラフ」を使った場合は、年、月、日単位で目...

このマクロを使うと、グラフが沢山できてきますが、設定が気に入らなくても大丈夫！関連記事で紹介したマクロを使えば、グラフをすべて削除できますので、お好みのグラフになるように、何度でも設定のやり直しもできますよ。

2018.07.14

Excel VBA(マクロ)でシート内の全てのグラフを一括削除するには?

作成済みのExcelファイルを新しい問題に対応させるために、データを削除したり付け加えたりといった作業を行うことがありますよね。このデータは必要ないので、削除！このグラフもいらないな、削除！そうし...

さらに、下の記事で紹介した方法を使えば、作成したグラフをワードに貼り付けるのも一瞬！こちらもあわせて使ってみてくださいね。

関連記事（グラフのワードへの貼付け）

2018.05.13

Excelの全グラフをWordに書式を指定して貼り付けるマクロをVBAで!

Excelで作成したグラフは、ワードなどに貼り付け、最終的には文書にまとめられると思います。この文書が最後の姿ですので、サイズや形式を整えてきれいに貼り付けたいところです。また、文書作成に時間を使いたいので、この...

まとめ

今回は、散布図を大量に作成するというをExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

・空のグラフを作って、軸のタイトル、凡例のなどを設定
・系列を追加し、名前、X、Yのデータの範囲を指定
・系列の表示に関する設定（マーカーや線の色等）を変更
・系列を追加する作業を表示するデータの数だけ繰り返し、グラフを完成させ、
・作成するグラフの数だけこれを繰り返す

という地味で辛い作業を、

１．作成するグラフの数、系列の数、グラフの大きさを読み込む
２．作成するグラフのX軸とY軸の設定値を読み込む
３．新規グラフを作成し、X軸ラベルを追加し表示する文字を設定
４．Y軸ラベルを追加し表示する文字を設定
５．X軸の最小値、最大値、主メモリ、Y軸との交点を設定
６．X軸の目盛りの表示を日付形式に変更
７．Y軸の最小値、最大値、主メモリ、X軸との交点を設定
８．系列を追加し、系列名、Xの参照先、Yの参照先を設定し、線、マーカーの書式を設定
９．系列の追加を指定の数だけ繰り返して、凡例を追加し、この書式を設定
１０．凡例の位置とプロットエリアの位置を調整
１１．３～１０を作成するグラフの数だけ繰り返し

という手順で処理を行うマクロにするところがポイントです。

下で紹介するExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

Excelのスキルを一気に向上させて、ライバルに差をつけたい、仕事を一気にさばいてスピードアップしたい、スキルを身に着けて転職や就職に役立てたいと思ったあなた！ぜひ下のボタンをクリックしてください！
募集締め切りが迫っているので、期間限定で「短期間で実力の向上が見込めるお手頃な方法」を紹介していますよ。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『大量の散布図を自動作成』するExcelサンプルをプレゼント

今回紹介した

作成するグラフの数、系列の数、グラフの大きさを読み込む
作成するグラフのX軸とY軸の設定値を読み込む
新規グラフを作成し、X軸ラベルを追加し表示する文字を設定
Y軸ラベルを追加し表示する文字を設定
X軸の最小値、最大値、主メモリ、Y軸との交点を設定
X軸の目盛りの表示を日付形式に変更
Y軸の最小値、最大値、主メモリ、X軸との交点を設定
系列を追加し、系列名、Xの参照先、Yの参照先を設定し、線、マーカーの書式を設定
系列の追加を指定の数だけ繰り返して、凡例を追加し、この書式を設定
凡例の位置とプロットエリアの位置を調整
３～１０を作成するグラフの数だけ繰り返し

という処理を行うマクロを実装したExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。

auto_graph.xlsm

1 ファイル 140.86 KB

download

auto_graph.bas

1 ファイル 5.95 KB

download

お好きな形式のファイルをダウンロードして、実際に動かしてみたり、あなたの課題にあわせて調整して作業時間短縮、効率化に役立ててみてください！

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excel マクロ(VBA)でグラフ(散布図)を大量自動作成! first appeared on Excel GO! GO！.

Excel VBA(マクロ)でシート内の全てのグラフを一括削除するには?

Go — Fri, 13 Jul 2018 17:39:04 +0000

作成済みのExcelファイルを新しい問題に対応させるために、データを削除したり付け加えたりといった作業を行うことがありますよね。

このデータは必要ないので、削除！

このグラフもいらないな、削除！

そうしたときに、どこかに消したデータを参照しているグラフが残っていて、スクロールするたびにエラーが出ることってありません？このような場合、どこにこのグラフがあるのか、シート内を探し回ることになります。

僕もこのような状況に遭遇することがあったのですが、非表示になっているセルや、行の高さや列の幅が小さく設定されたセルにグラフがあった場合など、なかなかグラフが見つからず無駄で疲れる時間を費やしてしまう結果となりました。

今回はグラフを削除する作業を効率よく、ささっと片付けてしまう方法を紹介していきます！

さて、今回の問題にどう対処するか？

実はこの問題、Excelのマクロを使うと簡単に処理できるんですよ。

エラーを起こさずグラフを一気に削除してしまいたいあなた！

是非今回紹介する方法を参考にしてみてくださいね。
このページの中では、今回紹介するシート内のグラフを一気に削除できるマクロを組み込んだExcelファイルをダウンロードできるようにしています。

では本編スタートです！

『シート内のグラフを一気に削除する』には？まずは問題を整理しよう！

今回解決するのは特定のシート内のグラフを一気に削除するいう作業をExcelにまかせて手軽に自動で終わらせるというもの。

この作業を手作業で行うには、

削除するグラフを目視で確認
これを選択してを削除

という手順をとるのが普通ですが、グラフが非表示にされているセルにある場合、目視ではグラフを見落としてしまいます。

上記のような状態のグラフの参照先のデータが削除されているという場合には、グラフの参照先がおかしいと何度も何度もエラーメッセージが表示され、「イラッ」としてしまうこともあるのではないでしょうか。

グラフを削除するという単純な作業ですが、思いがけず時間を要してしまう可能性があるこの作業をExcelで自動化してしまいましょう！

『シート内のグラフを一気に削除する』解決の方針をチェック！

ここでは、シート内のグラフを一気に削除するという作業をExcelに実施させるためにはどうすればよいかをみていきます。
一つひとつ手作業で行うには、上で書いた

この作業を手作業で行うには、

削除するグラフを目視で確認
これを選択してを削除

いう作業が必要でしたよね？

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。この作業をExcelマクロにやらせるのは実はシンプル！下の関連記事に書いたように、マクロは同じ作業を繰り返すのが得意ですので、この機能を活用します。

2018.05.07

Excelマクロで出来ることをサンプルVBAで感じ取ろう!

Excelのマクロは作業の自動化や効率化に大変便利なのですが、マクロに馴染みが無い方、これからマクロを使ってみようという方にとっては、どう便利なのか、何が出来るのか、なかなかイメージし辛いかもしれませんね。今回は...

グラフを削除という作業をグラフの数だけ繰り返し実行するということをVBAで書けば今回のシート内のグラフを一気に削除するという作業は一発で且つ一瞬で完了！

しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありません！

『シート内のグラフを一括で削除する』作業をExcelで解決！

ではシート内のグラフを一括で削除するという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！

'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub シート内のグラフ全てを削除する()
Dim i As Integer, j As Integer
Dim wordfilename As String
Dim objChart As Object
'
On Error GoTo Error1 'エラーが生じたらError1へ
Application.DisplayAlerts = False '確認画面を「非表示」に
Application.ScreenUpdating = False '画面の遷移をストップ
Application.EnableEvents = False 'イベント制御
Application.Calculation = xlCalculationManual '自動計算をストップ
'
For Each objChart In ActiveSheet.ChartObjects
With objChart
.Chart.Parent.Delete
End With
Next
'
Error1:
Application.DisplayAlerts = True '確認画面を「表示」に
Application.ScreenUpdating = True '画面の遷移を再開
Application.EnableEvents = True 'イベント制御解除
Application.Calculation = xlCalculationAutomatic '自動計算開始
'
End Sub

For NextとWith End withを使って、グラフを削除するという作業をグラフの数だけ繰り返し行わせています。この部分はわずか5行！

ソースは至ってシンプルですが、このようにいくつグラフがあっても

あっという間に全てのグラフを削除してしまことができるんですよ！

まとめ

今回は、『シート内のグラフを一括で削除する』という作業をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

For NextとWith End withを活用して、シート内のグラフの数だけ「グラフを削除」するという操作を繰り返すところがポイントです。

上で紹介したExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『シート内のグラフを一括で削除する』Excelサンプルをプレゼント

今回紹介したシート内のグラフを一括で削除できるマクロを実装したExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。

delete_all_graphs.xlsm

1 ファイル 103.37 KB

download

delete_all_graph.bas

1 ファイル 1.04 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excel VBA(マクロ)でシート内の全てのグラフを一括削除するには? first appeared on Excel GO! GO！.

Excel VBAマクロで選択したグラフだけ軸の最大値・最小値を変更するには?

Go — Tue, 10 Jul 2018 15:45:23 +0000

シート内の特定のグラフの軸を変更したい。

でも、これをの作業を何回も繰り返すのは大変なんだよな～、一気に変更できないかな？

こんなお悩みはありませんか？

今回は、シート内の選択した特定のグラフの軸の最大値、最小値を変更する作業を効率よく、ささっと片付けてしまう方法を紹介していきます！

さて、今回の問題にどう対処するか？

実はこの問題、ExcelのVBAでマクロを作成し、これを利用すると簡単に処理できるんですよ。

選択した特定のグラフの軸の変更を効率よく行いたいあなた！

是非この方法を参考にしてみてくださいね。

このページの中では、今回紹介する選択したグラフの軸を一気に変更してしまうマクロを組み込んだExcelファイルをダウンロードできるようにしています。

これを使えば、一からExcelを作り込む必要もありませんよ。ファイルを手にした瞬間、作業スピードは一気に早まります！

また、あなたの希望にあわせてカスタマイズすることも簡単です。是非使ってみてくださいね。

では本編スタートです！

『Excelシート内の選択したグラフの軸を一気に変更してしまう』には？まずは問題を整理しよう！

今回解決するのは、Excelシート内にある特定のグラフについて、軸の最大値、最小値を変更していくという大変な作業をExcelにまかせて手軽に自動で終わらせたいというものですね。

この作業を手作業で行うには、

変更するグラフを選び、変更する軸を右クリックして、「軸の書式設定」メニューを起動。
さらに最大値や最小値などの値を変更。
そしてこの作業を変更が必要なグラフの数だけ繰り返す。

という手順をとるのではないでしょうか。

一つのグラフの修正を急いで行っても、10秒くらいはかかってしまいますよね。変更したいグラフが多い場合は大変。一つのグラフの修正時間はたかが知れていても、必要になる時間はグラフの数との掛け算ですから、結構大変な作業なんですよね～。お悩みわかります！

ではこの手順をExcelで自動化してしまいましょう！

『Excelシート内の選択したグラフの軸を一度に変更する』方針をチェック！

ここでは、Excelシート内にある特定のグラフについて、軸の最大値、最小値を変更するという作業をExcelに実施させるためにはどうすればよいかをみていきます。

この作業を手作業で行うには、

変更するグラフを選び、変更する軸を右クリックして、「軸の書式設定」を起動。
さらに最大値や最小値などの値を変更。
そしてこの作業を変更が必要なグラフの数だけ繰り返す。

という手作業が必要でしたよね？今回はこの手順をExcelのマクロ（VBA）を使って自動で行っていくことにしましょう。

上で書いた作業と同じことを行うため、次の手順で処理を行わせます。マクロ実行前に、軸の最大値、最小値に変更を加えるグラフを選択しますよ。

軸の最小値、最大値を取得
選択したグラフの数を判断
複数選択したとき、一つだけ選択したとき、一つも選択されていないときという3つの状況に応じてグラフの最大値と最小値を変更

これをVBAで書けば今回のExcelシート内の選択したグラフの軸を一気に変更するという作業は一発で一瞬で完了します！

しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありません！

『Excelシート内の選択したグラフの軸を一括変更する』作業をExcelで解決！

ではExcelシート内の選択したグラフの軸を一気に変更するという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！

軸の設定値とする最小値および最大値は、以前紹介した記事に書いた方法と同じく、Inputboxを使って入力することにしました。

2018.05.12

Excelシート内のグラフの軸のメモリを一括で変更するマクロを紹介!

複数のグラフを使ってデータの時間変化などを調べるといったことを行う時、全てのグラフで横軸のメモリを揃えたいと思うことありますよね。古いバージョンのExcelでしたら、一つ前に行った操作を「F4」キーで繰り返すこと...

Attribute VB_Name = "Module1"
'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub 選択したグラフのx軸を変更する()

Dim chrtObj As ChartObject
Dim Obj As Object
Dim Obj2 As Object
Dim max As Double, min As Double
Dim num As String

Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual


On Error GoTo errhandler

num = InputBox("x軸の最小値を設定してください。", "入力", "")
If num <> "" Then
    min = num
ElseIf num = "" Then
    MsgBox "最小値の入力がありませんでした。マクロを終了します。"
    Exit Sub
End If

num = InputBox("x軸の最大値を設定してください。", "入力", "")
If num <> "" Then
    max = num
ElseIf num = "" Then
    MsgBox "最大値の入力がありませんでした。マクロを終了します。"
    Exit Sub
End If

Set Obj = Selection

If TypeName(Obj) <> "DrawingObjects" Then 'グラフが1つ選択された場合、選択されていない場合
    If Not ActiveChart Is Nothing Then  'グラフが1つ選択された場合
        With ActiveChart.Axes(xlCategory)  'Y軸の変更をする場合は、.Axes(xlValue)に変更
            .MinimumScale = min
            .MaximumScale = max
        End With
    Else  'グラフが選択されていない場合（全てのグラフを変更する）
        For Each chrtObj In ActiveSheet.ChartObjects
            With chrtObj.Chart
                With .Axes(xlCategory) 'Y軸の変更をする場合は、.Axes(xlValue)に変更
                    .MinimumScale = min
                    .MaximumScale = max
                End With
            End With
        Next
    End If
Else  'グラフが複数選択された場合
    For Each Obj2 In Obj
        If TypeName(Obj2) = "ChartObject" Then
            With xi.Chart.Axes(xlCategory)  'Y軸の変更をする場合は、.Axes(xlValue)に変更
                .MinimumScale = min
                .MaximumScale = max
            End With
        End If
    Next
End If

Set x = Nothing

GoTo lineend
errhandler:
MsgBox "入力には半角数字を使用してください。", , "注意"

lineend:
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAuto
    
End Sub

基本的には選択したグラフのみ、軸の最大値・最小値が変更されますが、選択したグラフがない場合には、シート内にある全てのグラフの軸を同じように変更できます。このマクロ一つであなたの要求にお答えできるのでは？

ソース内に記載したメモにあるように、.Axes(xlCategory)と書いている部分を.Axes(xlValue)に書き直せば、x軸に変わってy軸の変更が可能になります。

また、主メモリ間隔、補助メモリ間隔も変えたい場合などは、この方法を関連記事で紹介していますのでこちらも参照してくださいね。

2018.05.12

Excelシート内のグラフの軸のメモリを一括で変更するマクロを紹介!

まとめ

今回は『Excelシート内の選択したグラフの軸を一括で変更する』という問題をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

・変更するグラフを選び、変更する軸を右クリックして、「軸の書式設定」メニューを起動。
・さらに最大値や最小値などの値を変更。
・そしてこの作業を変更が必要なグラフの数だけ繰り返す。

という地味で辛い作業を、

・軸の最小値、最大値を取得
・選択したグラフの数を判断
・複数選択したとき、一つだけ選択したとき、一つも選択されていないときという3つの状況に応じてグラフの最大値と最小値を変更

という手順で操作を行うマクロにするところがポイントです。

下で紹介するExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『Excelシート内の選択したグラフの軸を一括で変更する』Excelサンプルをプレゼント

下の図のように変更したいグラフを選択した上で、

軸の最小値、最大値を取得
選択したグラフの数を判断
複数選択したとき、一つだけ選択したとき、一つも選択されていないときという3つの状況に応じてグラフの最大値と最小値を変更

という作業を実行するマクロを実装したExcelファイル、プログラムを記載したbasファイルが下からダウンロードできます。このマクロを使えば、ほらこの通り！選んだグラフのx軸のメモリだけを一気に変更できますよ。

では、お好きな形式のファイルをダウンロードして、実際に動かしてみたり、あなたの課題にあわせてExcelを調整したりして、作業時間短縮・効率化に役立ててみてください！

ajust_axis.xlsm

1 ファイル 33.95 KB

download

adjust_axis.bas

1 ファイル 2.34 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excel VBAマクロで選択したグラフだけ軸の最大値・最小値を変更するには? first appeared on Excel GO! GO！.

Excelグラフのタイトル位置をマクロ(VBA)で一発調整する!

Go — Tue, 22 May 2018 16:11:12 +0000

Excelで作ったグラフを調整している中で、グラフタイトルの位置をきれいに調整したいと思う場面に出くわしませんか？

このような要望がでるのは、1つのシートで複数のグラフを作成している時ではないでしょうか。

通常グラフのタイトルの位置は、マウスでドラッグして調整することになり、さじ加減ならぬマウス加減でその位置が決まってしまいます。このためいくつかあるグラフのタイトルを完全に同じにしようとするのは至難の業。頑張れば頑張った分だけ、きれいで、整ったグラフにはできますが、作業時間がかかってしょうがないですよね。

ということで、今回はこの「Excelグラフのタイトル位置の調整作業」を、効率よく、ささっと片付けてしまう方法を紹介していきます！

「Excelグラフのタイトル位置の調整作業」を効率よく行いたいあなた！是非この方法を参考にしてみてくださいね。

また、今回の問題に対処する方法は、以前紹介したグラフのy軸ラベルの位置を調整する方法の応用。見比べていただいて、なるほどこうやってサンプルを応用していくのかと、あなたの理解の助けになってくれればより一層幸せです。

2018.05.15

Excelマクロ(VBA)でグラフのY軸ラベル位置を一発調整!

Excelで作ったグラフを調整していたら、気が付かないうちに、縦軸の内容を書いたラベルの位置がおかしなところに移動してしまっていた！なんてことはありませんか？僕の経験では、ラベルの文字数を変えたときなどに、ラベル...

このページの中では、今回紹介するExcelグラフの縦軸ラベル位置の調整機能を組み込んだExcelファイルをダウンロードできるようにしています。

では本編スタートです！

『Excelグラフのタイトル位置を調整する』には？まずは問題を整理しよう！

今回解決するのはExcelグラフのタイトル位置を調整するという、一見地味ですが大変な労力を使う作業を、Excelにまかせて手軽に自動で終わらせるという課題。

下の図のように、グラフのタイトル位置が狂っていても一気に調整してしまいます。

この作業を手作業で行うには、

タイトルを選択
タイトルをドラッグし位置調整
タイトル位置同じ位置になるように、それぞれのグラフ上で、同じ操作を注意を払って実施
全グラフを眺め、タイトル位置におかしな点がないか確認
おかしなものは再度修正

という手順をとるのが普通なのではないでしょうか。一つひとつの作業はさほど難しいものではありませんよね。しかし、複数のグラフでタイトルの位置を合わせるという作業、これが結構大変なんですよね～。

ではこの手順をExcelで自動化してしまいましょう！

『Excelグラフのタイトル位置を調整する』マクロの内容とは？

ここでは、Excelグラフのタイトル位置を調整するという作業をExcelに実施させるためにはどうすればよいかをみていきます。
一つひとつ手作業で行うには、上で書いた

タイトルを選択
タイトルをドラッグし位置調整
タイトル位置同じ位置になるように、それぞれのグラフ上で、同じ操作を注意を払って実施
全グラフを眺め、タイトル位置におかしな点がないか確認
おかしなものは再度修正

という作業が必要でしたよね？

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。Excelマクロで同じことを行うため、次の手順で処理を行わせます。

基本とするグラフのタイトルの上の位置データを取得
変更するグラフからプロットエリアの情報、タイトルの情報を取得
移動後のタイトルの位置を計算
タイトルの位置データを変更
2～4を全グラフに対して実施

これをVBAで書けば、今回の「Excelグラフのタイトル位置を調整する」という作業は一発で一瞬で完了！しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、基準とするグラフがイマイチだった＞＜なんてときにでも、気軽に再実行できます。

あなたのグラフのクオリティーが上がっちゃいますね！

『Excelグラフのタイトル位置を調整する』作業をExcelで解決！

ではExcelグラフのタイトル位置を調整するという課題を解決する、具体的なマクロの記述をみていきましょう！VBAで書くとリストは次のようになります！

このマクロ実施前には、シート内のどのグラフでも構いませんので、タイトル位置を調整しておいてください。

このグラフを基本のグラフとして、タイトルが配置されている場所の上下の位置を読み取り、シート内の全てのグラフのタイトル上下位置をこれにあわせてしまいます。

なお、マクロ実行時には、タイトル位置を変更したグラフを選択した状態にしておいてくださいね。これで基本とするグラフを指示したことになります。

Attribute VB_Name = "Module1"
'**********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub グラフタイトル位置を揃える()
Dim objChart As Object
Dim titleTop As Single
Dim titleWidth As Single
Dim plotareaWidth As Single
Dim plotareaLeft As Single
Dim a As Single, b As Single, c As Single, d As Single
'
On Error GoTo ErrorHandler
'
If ActiveChart Is Nothing Then
    MsgBox "基準にするグラフを選んでください"
    Exit Sub
End If
'
'選択したグラフのタイトルの情報を取得します
With ActiveChart.ChartTitle
    titleTop = .Top
End With

'全てのグラフのタイトルの情報を書き換えていきます
For Each objChart In ActiveSheet.ChartObjects
    'プロットエリアの情報を取得
    With objChart.Chart.PlotArea
        plotareaWidth = .Width
        plotareaLeft = .Left
    End With
    '
    'タイトルの情報を取得
    With objChart.Chart.ChartTitle
    titleWidth = .Width
    End With
    '
    'タイトル移動後の左端位置を計算
        'プロットエリア幅の中心からプロットエリア左端までの距離aを計算
            a = plotareaWidth / 2
        'プロットエリア幅の中心の位置bを計算
            b = plotareaLeft + a
        'タイトルの幅の半分の長さcを計算
            c = titleWidth / 2
        'プロットエリア幅の中心bからcだけ左の位置dを計算。これをタイトル移動後のLeftにする
            d = b - c
    'タイトルの左とトップの位置を書き換え
    With objChart.Chart.ChartTitle
        .Top = titleTop
        .Left = d
    End With
Next
'
ErrorHandler:
Exit Sub
'
End Sub

マクロの流れはこうなっています。

まず、選択した基本のグラフからタイトルの上の位置に関する情報を取得します。

次に変更するグラフから、タイトルの幅に関する情報、プロットエリアの左位置、幅に関する情報を取得し、これらを用いて移動後のタイトルの位置を決めて行きます。

タイトルの上下の位置は、はじめに取得した基本のグラフと同じにしますが、左右の位置は、タイトルの長さがどうあっても良いように一工夫。

プロットエリア幅の中心と、タイトル幅の中心が同じになるように設定することで、ラベルの文字数によらず、いつも中央に配置するようにします。

このマクロを実行すると、上の図でバラバラだったタイトルがほらこの通り！一発で修正完了です！

また、データをプロットしているプロットエリアの幅をグラフごとに取得し、これに合わせてタイトルの左右の位置を決めますので、プロットエリアの幅がまちまちの場合であっても、きれいに一発調整できますよ！

まとめ

今回は、『Excelグラフのタイトル位置を調整する』という問題をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

１．基本とするグラフのタイトルの上の位置データを取得
２．変更するグラフからプロットエリアの情報、タイトルの情報を取得
３．移動後のタイトルの位置を計算
４．タイトルの位置データを変更
５．2～4を全グラフに対して実施

という手順で、操作を行うマクロにするところがポイントです。

下で紹介するExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

また、余力があったら、グラフのy軸ラベル位置を変更するマクロとの違いもチェックしてみてくださいね。

2018.05.15

Excelマクロ(VBA)でグラフのY軸ラベル位置を一発調整!

y軸ラベルが.Axes(xlValue).AxisTitleで、グラフタイトルが.ChartTitleになっているだけということは、x軸ラベルを変えるにはきっとここを書き換えればいいんだ！とか、

.Leftは共通だな。ということは右の位置を取得したいときには.Rightか？といったようなひらめきにつながり、課題に合わせて自分で変更しやすくなれますよ。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『Excelグラフの縦軸ラベル位置を調整』できるExcelマクロをプレゼント

今回紹介した

基本となるグラフからy軸ラベルに関する情報を取得
基本となるグラフのプロットエリアの情報を取得
上記の情報から、移動後のy軸ラベルのトップの位置を計算
全てのグラフのラベル位置情報を計算あるいは取得したデータに書き換える

という機能をもたせたマクロを実装したExcelファイル、プログラムを記載したvbaファイル
が下からダウンロードできます。

adjust_location_of_graph_title.xlsm

1 ファイル 30.76 KB

download

adjust_location_of_graph_title.bas

1 ファイル 1.65 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excelグラフのタイトル位置をマクロ(VBA)で一発調整する! first appeared on Excel GO! GO！.

Excelのシート名を変更しても使用できるマクロの書き方とは？

Go — Tue, 15 May 2018 15:23:23 +0000

ExcelでVBAを使ってマクロを作り、繰り返し作業を簡略化して、早く済ませたいと思った時、便利なのがマクロの記録機能ですよね。VBAに詳しくなくても簡単にマクロが作れます。

マクロの記録を使ってマクロを作り、活用しているうちに、あれ？エラーで動かないぞ？ということはありませんか？

その1つに、シート名を変えたことによって生じるエラーがあります。

このエラーのせいで、面倒な手作業に戻るのもまっぴらですし、また同じマクロを作り直すのもできれば避けたいところ。

今回は、シート名を変えてしまったことによって生じてしまったエラーの解消方法を紹介したいと思います。

この方法、実にシンプルで簡単です。しかも、今後VBAを使ってマクロを作っていく上で有効な方法ですので、是非対処法を身に着けてくださいね。

このページの中では、今回紹介するマクロを組み込んだExcelファイルをダウンロードできる
ようにしています。

これを使えば、一からExcelを作り込む必要もありませんよ。是非使ってみてくださいね。

では本編スタートです！

『Excelのシート名を変更しても使用できるマクロにする』には？まずは問題を整理しよう！

今回解決するのはシート名を変更してもマクロがエラーで使えなくならない方法。シート名を変更するとなぜエラーが起きるのかをまずチェックしておきましょう！

下の図のようなシート名のシートがあるExcelだったとします。

このシート上で、「マクロの記録」機能を使ってマクロを作ると、シートAを選択するときに、次のようにマクロが記録されます。

Sheets("シートA").Select

()の中の” “で囲まれた部分に注目してください。ここが、シート名「シートA」になっていますよね。

Excel側でシート名を変更した場合、上の図の部分の表示は変わりますが、残念ながらVBAで書いたプログラムは変更されません。(“シートA”)のままなんです。このため、マクロを実行しようとしたときに、シートAがないよ！ということでエラーになってしまうのです。

では、どう対処するか！

感のいいあなたはおわかりですね？

そう、” ”内の記述を現在のシート名に書き換えてあげればいいのです！こうすればエラーが解消され、今までどおりにマクロが実行されます。

しかし！

次にまたシート名を変えてしまったときどうなるか？そうです。またエラーが発生します。シート名を変えるたびに、プログラムを書き直せばエラーは回避出来るのですが、この作業も面倒ですよね。ですので、もう一つ進んだ対処法を覚えてしまいましょう！

『Excelのシート名を変更しても使用できるマクロにしたい！』解決の方針をチェック！

VBAを「マクロの記録」を使って書かせた場合のシートの選択は、

Sheets("シートA").Select

となるのでしたね。この方法でシート名を指定すると、シート名を変えるたびに、この部分を書き直すはめになります。

そこで利用するのが、次の書き方！

Sheets(1).Select

あれ？別に変わってないじゃない！と思ったあなた！よく見てみてください。()内の” “がなくなっています。そして、()の中が数字になっていますよね！

ここであなたは、この数字が何なのかとお思いになったことでしょう。

この数字の意味がわかれば、あなたは自由にVBA（マクロ）を使いこなす、マクロマスターに近づけます！

では、上で紹介したサンプルのExcelのエディターの表示をみてみましょう。

「シートA」という名前のシートに「Sheet1」、「シートB」という名前のシートに「Sheet2」、「シートC」という名前のシートに「Sheet3」と表示されていますよね。

先程指示したSheets(1)の1は、実はSheet1の1なんです。この番号は、シート名（例えばシートA）を変更したとしても変更されません。

ということで、Sheets(1).Selectというように、番号を指定してシートを選択すれば、シート名が変更されたとしても、エラーが生じることはなくなるわけです。

ですので、シートの選択に関するVBAの記述は、この方式をお使いになることをオススメします。

また、この表記には便利な使い方があります。

シートAで計算して、その後同じことをシートBでやって、さらにシートCで実施するというような時に真価を発揮します。

Sheets(1).Selectの（）内の1をiなどの変数にして記述し、For Next分などでｉを変えてあげれば、同じ作業をシートを変更しながら実行できるんです。

これを使ったマクロは別の記事で紹介したいと思いますが、とにかく応用も効きますので、シートの選択については、Sheets(1).Selectというような、シートの番号を使う方式が良いですよ！

『Excelのシート名を変更しても使用できるマクロにする』Excelマクロのサンプル

ではExcelのシート名を変更しても使用できるマクロの、具体的な記述をみていきましょうね！VBAで書いたリストは次の通りです！

Attribute VB_Name = "Module1"
Attribute VB_Name = "Module1"
'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub Sheet名の指示1()
'
    Sheets("シートA").Select
    Range("A1") = 1
    Sheets("シートB").Select
    Range("A1") = 2
    Sheets("シートC").Select
    Range("A1") = 3
'
End Sub
'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub Sheet名の指示2()
'
    Sheets(1).Select
    Range("A1") = 1
    Sheets(2).Select
    Range("A1") = 2
    Sheets(3).Select
    Range("A1") = 3
'
End Sub

Sheet名の指示1()とSheet名の指示２()という２つのマクロが記述されています。１つ目は「マクロの記録」で使われる方式でシートを指定するもの。もうひとつは今回紹介した方式でシートを指定するものです。

どちらもマクロを流した後の結果は同じですが、下のものはシート名を変えてもエラーが生じず動きます。

是非違いを覚えて下さいね。

まとめ

今回は、『Excelのシート名を変更しても使用できるマクロ』の作り方を紹介しました。マクロの記録を使ってマクロを作った場合、

Sheets("シートA").Select

というように、シート名を使ってシートを指定していたところを、

Sheets(1).Select

と、シートの番号を使って指定するところがポイントでした。

下で紹介するExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能をExcelで実現するとき、その方法は一つだけとは限りません。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『Excelのシート名を変更しても使用できるマクロ』Excelサンプルをプレゼント

今回紹介したシートを

Sheets(1).Select

という形式で指定し、シート名を変更しても使用できるマクロを組み込んだExcelファイル、basファイルが下からダウンロードできます。

sheet_name.xlsm

1 ファイル 16.66 KB

download

sheet_name.bas

1 ファイル 0.84 KB

download

お好きな形式のファイルをダウンロードして、
実際に動かしてみたり、あなたの課題にあわせてExcelを
調整して作業時間短縮、効率化に役立ててみてください！

vbaファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excelのシート名を変更しても使用できるマクロの書き方とは？ first appeared on Excel GO! GO！.

Excelマクロ(VBA)でグラフのY軸ラベル位置を一発調整!

Go — Mon, 14 May 2018 15:47:21 +0000

Excelで作ったグラフを調整していたら、気が付かないうちに、縦軸の内容を書いたラベルの位置がおかしなところに移動してしまっていた！なんてことはありませんか？

僕の経験では、ラベルの文字数を変えたときなどに、ラベルの位置がグラフの下の方に動いてしまっていたということがありました。

こうなってしまうと、せっかく作ったグラフの見栄えがよくありません。ということで修正作業をすることになるわけですが、できることならば、こんなことに時間を裂きたくありません。

修正が一箇所だけならば、この修正、まだ我慢ができますが2つ以上になると、他のグラフのタイトル位置と同じようになっているかなど位置関係を気にしないといけませんし、この作業をグラフの数だけ実施しなければなりません。

勝手に位置を変えてやがって！Excelのバカヤロー！くらい叫んでしまいそうになりますよね！精神衛生上これはよくありませんし、この作業のせいで会社からの帰りも遅くなってしまいます。

ということで、今回はこの「Excelグラフの縦軸ラベル位置の調整作業」を、効率よく、ささっと片付けてしまう方法を紹介していきます！

さて、今回の問題にどう対処するか？

古いバージョンのExcelは確か、F4キーを使って対処できていたと記憶していますが、新しいバージョンのExcelではこれが使えません。ですので、ExcelのVBAでマクロを作り対応していきます。

「Excelグラフの縦軸ラベル位置の調整作業」を効率よく行いたいあなた！

是非この方法を参考にしてみてくださいね。
このページの中では、今回紹介するExcelグラフの縦軸ラベル位置の調整機能を組み込んだExcelファイルをダウンロードできるようにしています。

では本編スタートです！

『Excelグラフの縦軸ラベル位置を調整する』には？まずは問題を整理しよう！

今回解決するのはExcelグラフの縦軸ラベル位置を調整するという、無駄にも思えそうな作業、一見地味ですが大変な労力を使う作業を、Excelにまかせて手軽に自動で終わらせるという課題。

下の図のように、グラフのy軸ラベルの位置が狂っていても一気に調整してしまいます。

この作業を手作業で行うには、

y軸ラベルを選択
y軸ラベルをドラッグし位置調整
同じ位置になるように、同じ操作を注意を払って実施
全グラフを眺め、ラベル位置におかしな点がないか確認
おかしなものは再度修正

という手順をとるのが普通なのではないでしょうか。一つひとつの作業はさほど難しいものではありませんよね。しかし、複数のグラフでラベル位置を合わせるという作業、これが結構大変なんですよね～。

ではこの手順をExcelで自動化してしまいましょう！

『Excelグラフの縦軸ラベル位置を調整する』マクロの方針をチェック！

ここでは、Excelグラフの縦軸ラベル位置を調整するという作業をExcelに実施させるためにはどうすればよいかをみていきます。
一つひとつ手作業で行うには、上で書いた

y軸ラベルを選択
y軸ラベルをドラッグし位置調整
同じ位置になるように、同じ操作を注意を払って実施
全グラフを眺め、ラベル位置におかしな点がないか確認
おかしなものは再度修正

という作業が必要でしたよね？

基本とするグラフのy軸ラベルの左の位置データを取得
変更するグラフからプロットエリアの情報、y軸ラベルの情報を取得
移動後のy軸ラベルの位置を計算
y軸ラベルの位置データを変更
2～4を全グラフに対して実施

これをVBAで書けば、今回の「Excelグラフの縦軸ラベル位置を調整する」という作業は一発で一瞬で完了します！しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありませんよ！

『Excelグラフの縦軸ラベル位置を調整する』作業をExcelで解決！

ではExcelグラフの縦軸ラベル位置を調整するという課題を解決する、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！

このマクロ実施前には、シート内のどのグラフでも構いませんので、y軸ラベル位置を調整しておいてください。このグラフを基本のグラフとしますよ。y軸ラベルの左位置をこのグラフから取得して、シート内の全てのグラフの縦軸ラベル左位置をこれに合わせます。

なお、マクロ実行時には、y軸ラベル位置を変更したグラフを選択した状態にしておいてくださいね。

Attribute VB_Name = "Module1"
'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub 縦軸ラベルの位置を揃える()
Dim objChart As Object
Dim ylabelLeft As Single
Dim ylabelHeight As Single
Dim plotareaHeight As Single
Dim plotareaTop As Single
Dim a As Single, b As Single, c As Single, d As Single
'
On Error GoTo ErrorHandler
'
If ActiveChart Is Nothing Then
    MsgBox "アクティブなグラフがありません"
    Exit Sub
End If
'
'アクティブチャートのy軸ラベルの情報を取得します
With ActiveChart.Axes(xlValue).AxisTitle
    ylabelLeft = .Left
End With

'全てのチャートのy軸ラベルの情報を書き換えていきます
For Each objChart In ActiveSheet.ChartObjects
    'プロットエリアの情報を取得
    With objChart.Chart.PlotArea
        plotareaHeight = .Height
        plotareaTop = .Top
    End With
    '
    'y軸ラベルの情報を取得
    With objChart.Chart.Axes(xlValue).AxisTitle
    ylabelHeight = .Height
    End With
    '
    'y軸ラベル移動後の上端位置を計算
        'プロットエリア高さの中心からプロットエリア上部までの距離aを計算
            a = plotareaHeight / 2
        'プロットエリア高さの中心の位置bを計算
            b = plotareaTop + a
        'y軸ラベルの高さの半分の長さcを計算
            c = ylabelHeight / 2
        'プロットエリア高さの中心bからcだけ上方を移動後のTop位置dにする
            d = b - c
    'y軸ラベルの左とトップの位置を書き換え
    With objChart.Chart.Axes(xlValue).AxisTitle
        .Left = ylabelLeft
        .Top = d
    End With
Next
'
ErrorHandler:
Exit Sub
'
End Sub

まず、選択した基本のグラフからy軸ラベルの左の位置に関する情報を取得します。

次に変更するグラフから、y軸ラベルの高さに関する情報、プロットエリアのトップ位置、高さに関する情報を取得し、これらを用いて移動後のy軸ラベルの位置を決めて行きます。

y軸ラベルの左の位置は、はじめに取得した基本のグラフと同じにしますが、上下の位置は、y軸ラベルの長さがどうあっても良いように一工夫。

プロットエリア高さの中心と、y軸ラベル高さの中心が同じになるように設定することで、ラベルの文字数によらず、いつも中央に配置することができます。

このマクロを実行すると、上の図でバラバラだったy軸ラベルがほらこの通り！一発で修正完了です！

まとめ

今回は、『Excelグラフの縦軸ラベル位置を調整する』という問題をExcelのマクロをつかって自動化し、作業を効率化する方法を紹介しました。

・y軸ラベルを選択
・y軸ラベルをドラッグし位置調整
・同じ位置になるように、同じ操作を注意を払って実施
・全グラフを眺め、ラベル位置におかしな点がないか確認
・おかしなものは再度修正

という地味で辛い作業、かつ、なかなかきれいにそろえるのが難しい作業を、

1. 基本とするグラフのy軸ラベルの左の位置データを取得
2. 変更するグラフからプロットエリアの情報、y軸ラベルの情報を取得
3. 移動後のy軸ラベルの位置を計算
4. 軸ラベルの位置データを変更
5. 2～4を全グラフに対して実施

という手順で、操作を行うマクロにするところがポイントです。

下で紹介するExcelファイルも是非お使いくださいね。プログラムを書く時間も短縮できると思います。

ある機能を実現するとき、そのやり方は一つだけとは限りません。

マクロに慣れて来た、もっとスマートで多機能なコードが書きたいという場合は、書籍やスクールなども充実していますので、どんどん次のステージに進んでいってくださいね。その第一歩であったりお手伝いにこのブログがなれば幸いです。

募集締め切りが迫っていますが、期間限定で「短期間で実力の向上が見込めるお手頃な方法」の募集がありますのでお知らせしておきますね。ぜひレベルアップに活用してください。

ホントは管理人Goも早く知りたかった！オンラインブートキャンプで、
見やすいデータをより早く仕上げる Excel術をマスターしよう！

『Excelグラフの縦軸ラベル位置を調整』できるExcelマクロをプレゼント

今回紹介した

基本となるグラフからy軸ラベルに関する情報を取得
基本となるグラフのプロットエリアの情報を取得
上記の情報から、移動後のy軸ラベルのトップの位置を計算
全てのグラフのラベル位置情報を計算あるいは取得したデータに書き換える

という機能をもたせたマクロを実装したExcelファイル、プログラムを記載したbasファイル
が下からダウンロードできます。

adjust_location_of_yaxis_label.xlsm

1 ファイル 29.48 KB

download

adjust_location_of_yaxis_label.bas

1 ファイル 1.70 KB

download

basファイルって何？どう使うの？という方やマクロはどのようにして実行するの？と疑問に思った方は、関連記事もチェックしてみてくださいね。

2018.05.06

ExcelマクロのVBA記述方法や保存手順は?実行方法もチェック!

2018.05.06

Excelマクロを複数のファイルで利用するにはbasファイルが便利!

The post Excelマクロ(VBA)でグラフのY軸ラベル位置を一発調整! first appeared on Excel GO! GO！.

Excelの全グラフをWordに書式を指定して貼り付けるマクロをVBAで!

Go — Sat, 12 May 2018 15:53:23 +0000

Excelで作成したグラフは、ワードなどに貼り付け、最終的には文書にまとめられると思います。

この文書が最後の姿ですので、サイズや形式を整えてきれいに貼り付けたいところです。また、文書作成に時間を使いたいので、この単純な貼り付け作業にはできるだけ時間を裂きたくないという相反する要求もありますよね。

今回はこの、Excelで作成した全グラフをWordにすばやく、かつきれいに貼り付ける作業を効率よく、ささっと片付けてしまう方法を紹介していきます！

さて、今回の問題にどう対処するか？

実はこの問題、ExcelのVBAを使ってマクロを作ると簡単に処理できるんですよ。

Excelの全グラフをWordに書式を指定して貼り付ける作業を効率よく行いたいあなた！

是非今回紹介する方法を参考にしてみてくださいね。
このページの中では、今回紹介するExcelの全グラフをWordに書式を指定して貼り付ける機能を組み込んだExcelファイルをダウンロードできるようにしています。

では本編スタートです！

『Excelの全グラフをWordに書式を指定して貼り付ける』には？まずは問題を整理しよう！

今回対象とするのは、Excelの全グラフをWordに書式を指定して貼り付けるという作業です。グラフの数が多いと一苦労なこの作業。Excelにまかせて手軽に自動で終わらせます。

この作業を手作業で行うには、

Excel上でグラフを選択してコピーする
貼り付け先のワード上で、形式を選択して貼り付けを選択
希望する形式を選び貼り付けを行う
貼り付け後のグラフのサイズを変更する
ここまでの作業をグラフの数だけ繰り返す

という手順をとるのが普通なのではないでしょうか。Wordで形式を選択して貼り付けるという作業が面倒なんですよね。Ctrl＋Pのショートカットキーを使って貼り付けると書式が選べませんので、手数の多い方法で貼り付けねばなりません。

ひとつふたつのグラフをWordにはりつける位であればなんてことありませんが、グラフの数が多い場合、あまり価値を産まない単純作業である貼り付け作業で日が暮れてしまいます。

ではこの面倒な手順をExcelで自動化してしまいましょう！

『Excelの全グラフをWordに書式を指定して貼り付ける』方針をチェック！

ここでは、Excelの全グラフをWordに書式を指定して貼り付けるという作業をExcelに実施させるためにはどうすればよいかをみていきます。一つひとつ手作業で行うには、上で書いた

この作業を手作業で行うには、

Excel上でグラフを選択してコピーする
貼り付け先のワード上で、形式を選択して貼り付けを選択
希望する形式を選び貼り付けを行う
貼り付け後のグラフのサイズを変更する
ここまでの作業をグラフの数だけ繰り返す

という手作業が必要でしたよね？

今回はこの手順をExcelのマクロ（VBA）をつかって自動で行っていくことにしましょう。Excelマクロで同じことを行うため、次の手順で処理を行わせます。マクロ実行の前にグラフを貼り付けるためのワードを予め用意しておきますよ。

グラフ貼り付け先のWordファイルを選択して開く
Excel内のグラフをひとつづつコピー
ワードに形式を指定して貼り付け
上記をエクセル内の全シート、全グラフを対象に繰り返す
Wordファイルを保存して閉じる

これをVBAで書けば今回のExcelの全グラフをWordに書式を指定して貼り付けるいう作業は一発で一瞬で完了します！しかも処理はプログラムした内容に従って、いつでも何度でも実施できるので、処理を間違ってしまうということもありませんよ！

『Excelの全グラフをWordに書式を指定して貼り付ける』作業をExcelで解決！

ではExcelの全グラフをWordに書式を指定して貼り付ける作業を行う、具体的なマクロの記述をみていきましょうね！VBAで書いたリストは次の通りです！

貼り付け先になるWordファイルが、Excelファイルの保存されているフォルダに保存されていることを想定し、Wordファイルを選択する際に、Wordの保存先のフォルダを探し当てる作業をしなくていいように一工夫しました。

Excelファイルが保存されてるフォルダをカレントディレクトリにして、Wordファイルを開くダイアログボックスを開くと、Excelファイルが保存されているフォルダの内容が表示され、Wordファイルを探す手間が省けます。

このサンプルでは、コピーしたグラフをpngファイル形式でワードに貼り付けているため、.Selection.PasteSpecial DataType:=14とDataTypeを14と指定しています。他の形式で貼り付けたい場合には、14の部分を変更してください。

Wordで形式を選択して貼り付けを行うときに選べる各形式の番号は、bitmapが4、デバイスに依存しないビットマップが5,、拡張メタファイルが9、GIFが17、JPEGが26です。

また、Wordに貼り付けられたグラフは、Excelで作成された大きさに応じたものになっています。このマクロではWord上のグラフの大きさの操作は行いません。

Word上では、グラフは図になっており、ワード上でひとつ図のサイズ調整を行えば、この作業をF4キーで繰り返すことができますので、これを利用してWord上のグラフの大きさを変更してください。

Attribute VB_Name = "Module1"
'***********************************************************
'**　仕事サクサク！定時退社のために　EXCEL GO! GO!
'**　(URL:https://excelgogo.net/)
'**　是非ご活用ください♪
'***********************************************************
Sub ブック内にある全てのグラフをワードに貼り付ける()
Dim i As Integer, j As Integer
Dim code As String
Dim wordfilename As String
'
On Error GoTo Error1 'エラーが生じたらError1へ
Application.DisplayAlerts = False '確認画面を「非表示」に
Application.ScreenUpdating = False '画面の遷移をストップ
'
'アクティブなワークブックが保存されている場所をカレントディレクトリにします。
'ネットワークドライブ接続にも対応するよう､接続しているドライブを
'カレントドライブにします｡
ChDrive ActiveWorkbook.Path
ChDir ActiveWorkbook.Path
'
'グラフを貼り付けるワードファイルをダイアログボックスを使って指定します。
wordfilename = Application.GetOpenFilename _
 ("Microsoft word,*.docx?, Microsoft word,*.docm?, Microsoft word,*.doc?", _
 , "グラフを貼り付けるワードファイルを選択", , "false")
If wordfilename = "False" Then
    MsgBox "正しくワードファイルを選択してください。ワードファイルがない場合は,マクロを実行する前に作成してください｡マクロを終了します "
    GoTo Error2
End If
'
'wordが使用できるように、wordのインスタンスを作成します。
Set objWord = CreateObject("word.application")
'
With objWord
    Visible = True
    WindowState = wdWindowStateMaxmize
    .Documents.Open wordfilename
    Set objWordDoc = .Activedocument
End With
'
For i = 1 To Sheets.Count
    Worksheets(i).Select
    code = ActiveSheet.Name
'
    If ActiveSheet.ChartObjects.Count > 0 Then
        With objWord
            With .Selection
            'グラフの数だけカーソルを移動
            .Move Count:=objWordDoc.Characters.Count
            'カーソル位置に段落追加
            .Insertparagraphafter
            '右へカーソルを移動
            .moveright
            '右寄せ設定
            .Paragraphs.Alignment = wdalignParagraphleft
            'Excelのシート名をワード内に記述…目印のため
            .Typetext code
            'カーソル位置に段落を追加
            .Insertparagraphafter
            'カーソルを右に移動
            .moveright
            End With
        End With
        For j = 1 To ActiveSheet.ChartObjects.Count
            Worksheets(i).ChartObjects(j).Select
            Selection.Copy
            With objWord
            '***********************************************************
                '好みの形式をDataTypeで指定して貼り付け
                'png=14,bitmap=4,デバイスに依存しないビットマップ=5,
                '拡張メタファイル=9,GIF=17，JPEG=26
                .Selection.PasteSpecial DataType:=14
            '***********************************************************
                With .Selection
                'カーソルを右に移動
                .moveright
                End With
            End With
        Next
    End If
'
Next
'
objWordDoc.Close savechanges:=True  'ワードファイルを保存して閉じる
'
Error1:
objWord.Quit
Set objWord = Nothing
Set objWordDoc = Nothing
'
Error2:
Application.DisplayAlerts = True  '確認画面を「表示」に
Application.ScreenUpdating = True  '画面の遷移を再開
'
End Sub