ボタンを押すと、グラフが展開される【VBA】

目次

経緯

ダッシュボードのようなものを作りたくて、ダッシュボードのsheetにボタンを押して、それを押すと、任意のsheetからグラフを取得し、ダッシュボードに展開するような仕様したくて、

今回、勉強しました。

コード

ダッシュボードというsheetにボタンがあり、そのボタンを押すと、sheet2のグラフをダッシュボードに展開するという仕様です。配列を使って、グラフを展開するセルを指定しています。

では、コードです。

Sub CopyGraphsToDashboard()
    Dim sourceSheet As Worksheet
    Dim dashboardSheet As Worksheet
    Dim graphNames As Variant
    Dim cellLocations As Variant
    Dim i As Integer

    ' グラフ名と対応するダッシュボード上のセル位置
    graphNames = Array("sheet2_graph1", "sheet2_graph2", "sheet2_graph3")
    cellLocations = Array("E7", "E21", "E35")

    Set sourceSheet = ThisWorkbook.Sheets("sheet2")
    Set dashboardSheet = ThisWorkbook.Sheets("ダッシュボード")

    For i = LBound(graphNames) To UBound(graphNames)
        ' グラフのコピー
        sourceSheet.ChartObjects(graphNames(i)).Copy

        ' 指定された位置に貼り付け
        With dashboardSheet
            .Paste .Range(cellLocations(i))
            ' 貼り付けたグラフの位置調整(必要に応じて)
            With .ChartObjects(.ChartObjects.Count)
                .Top = .Range(cellLocations(i)).Top
                .Left = .Range(cellLocations(i)).Left
            End With
        End With
    Next i
End Sub

という感じでできました。

参考になれば、幸いです。

ここまで読んでいただきありがとうございました。

スクールの紹介

最後に宣伝をさせてください。

夢見るAIエンジニアへ、今こそ一歩を踏み出せ!

最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。

しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです!

なぜこのサービスが選ばれるのか?その理由はこちら

  1. 初心者から上級者まで
    完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。
  2. 徹底的な進捗管理
    受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。
  3. 専属メンターによる徹底サポート
    AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。
  4. 場所を選ばず学べるオンライン完結
    東京以外の地域からも、気軽に学び始めることができます。

信頼の実績多数!
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現

夢を叶えるための第一歩を、一緒に踏み出しませんか?今なら、あなたもその一員として学び始めることができます!

よかったらシェアしてね!
  • URLをコピーしました!
  • URLをコピーしました!

この記事を書いた人

私が勉強したこと、実践したこと、してることを書いているブログです。
主に資産運用について書いていたのですが、
最近はプログラミングに興味があるので、今はそればっかりです。

目次