おすすめパワポ本12選！プロから学ぶ資料作成術▶︎

大阪万博2025ロゴ「ミャクミャク」を召喚するパワポマクロ

2020.09.01

PowerPoint VBAの魔法で、大阪・関西万博2025ロゴ「ミャクミャク」を召喚するマクロをご紹介します。

キャラメルコーンのパッケージとポンデリングがフュージョンしたようなロゴデザインが魅力的です。

スポンサーリンク
スポンサーリンク

大阪万博2025ロゴを召喚するマクロ

コード

Sub 大阪万博2025ロゴを召喚()

    Dim n As Long
    Dim shp As Shape
    Dim List() As Variant
    Dim w As Single
    Dim h As Single
    
    '選択中のスライド番号を取得
    n = ActiveWindow.Selection.SlideRange.SlideIndex

    With ActivePresentation.Slides(n).Shapes

        '赤い円を描く
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(2.86 * 720 / 25.4, 1), _
        Top:=0, _
        Width:=Round(2.25 * 720 / 25.4, 1), _
        Height:=Round(2.25 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp1"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(4.88 * 720 / 25.4, 1), _
        Top:=Round(0.06 * 720 / 25.4, 1), _
        Width:=Round(2.9 * 720 / 25.4, 1), _
        Height:=Round(2.9 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp2"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(5.61 * 720 / 25.4, 1), _
        Top:=Round(2.45 * 720 / 25.4, 1), _
        Width:=Round(3.45 * 720 / 25.4, 1), _
        Height:=Round(1.6 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp3"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(6.19 * 720 / 25.4, 1), _
        Top:=Round(3.57 * 720 / 25.4, 1), _
        Width:=Round(2.05 * 720 / 25.4, 1), _
        Height:=Round(2.5 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp4"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(5.43 * 720 / 25.4, 1), _
        Top:=Round(5.72 * 720 / 25.4, 1), _
        Width:=Round(3.15 * 720 / 25.4, 1), _
        Height:=Round(2.8 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp5"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(3.67 * 720 / 25.4, 1), _
        Top:=Round(7.3 * 720 / 25.4, 1), _
        Width:=Round(2.7 * 720 / 25.4, 1), _
        Height:=Round(2.7 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp6"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(2.13 * 720 / 25.4, 1), _
        Top:=Round(7.46 * 720 / 25.4, 1), _
        Width:=Round(1.95 * 720 / 25.4, 1), _
        Height:=Round(1.95 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp7"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(1.52 * 720 / 25.4, 1), _
        Top:=Round(5.85 * 720 / 25.4, 1), _
        Width:=Round(1.4 * 720 / 25.4, 1), _
        Height:=Round(2.3 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp8"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(0.13 * 720 / 25.4, 1), _
        Top:=Round(4.12 * 720 / 25.4, 1), _
        Width:=Round(2.55 * 720 / 25.4, 1), _
        Height:=Round(2.55 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp9"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=0, _
        Top:=Round(2.19 * 720 / 25.4, 1), _
        Width:=Round(2.15 * 720 / 25.4, 1), _
        Height:=Round(2.15 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp10"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(1.58 * 720 / 25.4, 1), _
        Top:=Round(2.83 * 720 / 25.4, 1), _
        Width:=Round(1.9 * 720 / 25.4, 1), _
        Height:=Round(1.9 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp11"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(1.66 * 720 / 25.4, 1), _
        Top:=Round(1.16 * 720 / 25.4, 1), _
        Width:=Round(1.9 * 720 / 25.4, 1), _
        Height:=Round(2.1 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(230, 0, 18)
        shp.Line.Visible = msoFalse
        shp.Name = "shp12"
        
        '白い円を描く
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(6.02 * 720 / 25.4, 1), _
        Top:=Round(0.35 * 720 / 25.4, 1), _
        Width:=Round(1.25 * 720 / 25.4, 1), _
        Height:=Round(1.25 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
        shp.Line.Visible = msoFalse
        shp.Name = "shp13"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(6.81 * 720 / 25.4, 1), _
        Top:=Round(6.54 * 720 / 25.4, 1), _
        Width:=Round(1.55 * 720 / 25.4, 1), _
        Height:=Round(1.4 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
        shp.Line.Visible = msoFalse
        shp.Name = "shp14"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(4.42 * 720 / 25.4, 1), _
        Top:=Round(8.65 * 720 / 25.4, 1), _
        Width:=Round(0.95 * 720 / 25.4, 1), _
        Height:=Round(0.95 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
        shp.Line.Visible = msoFalse
        shp.Name = "shp15"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(1.14 * 720 / 25.4, 1), _
        Top:=Round(5.01 * 720 / 25.4, 1), _
        Width:=Round(1.2 * 720 / 25.4, 1), _
        Height:=Round(1.15 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
        shp.Line.Visible = msoFalse
        shp.Name = "shp16"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(0.25 * 720 / 25.4, 1), _
        Top:=Round(2.62 * 720 / 25.4, 1), _
        Width:=Round(1.1 * 720 / 25.4, 1), _
        Height:=Round(1.1 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
        shp.Line.Visible = msoFalse
        shp.Name = "shp17"
        
        '青い円を描く
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(6.55 * 720 / 25.4, 1), _
        Top:=Round(0.43 * 720 / 25.4, 1), _
        Width:=Round(0.6 * 720 / 25.4, 1), _
        Height:=Round(0.6 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(0, 105, 183)
        shp.Line.Visible = msoFalse
        shp.Name = "shp18"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(7.66 * 720 / 25.4, 1), _
        Top:=Round(6.74 * 720 / 25.4, 1), _
        Width:=Round(0.65 * 720 / 25.4, 1), _
        Height:=Round(0.65 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(0, 105, 183)
        shp.Line.Visible = msoFalse
        shp.Name = "shp19"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(4.7 * 720 / 25.4, 1), _
        Top:=Round(9.2 * 720 / 25.4, 1), _
        Width:=Round(0.4 * 720 / 25.4, 1), _
        Height:=Round(0.4 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(0, 105, 183)
        shp.Line.Visible = msoFalse
        shp.Name = "shp20"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(1.44 * 720 / 25.4, 1), _
        Top:=Round(5.01 * 720 / 25.4, 1), _
        Width:=Round(0.54 * 720 / 25.4, 1), _
        Height:=Round(0.54 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(0, 105, 183)
        shp.Line.Visible = msoFalse
        shp.Name = "shp21"
        
        Set shp = .AddShape( _
        Type:=msoShapeOval, _
        Left:=Round(0.29 * 720 / 25.4, 1), _
        Top:=Round(2.75 * 720 / 25.4, 1), _
        Width:=Round(0.53 * 720 / 25.4, 1), _
        Height:=Round(0.53 * 720 / 25.4, 1))
        shp.Fill.ForeColor.RGB = RGB(0, 105, 183)
        shp.Line.Visible = msoFalse
        shp.Name = "shp22"
        
        'すべての図形を配列に追加
        For a = 0 To 21
            ReDim Preserve List(a)
            List(a) = "shp" & a + 1
        Next a
        
        'すべての図形をグループ化
        .Range(List).Group
        
        '縦横比を固定
        .Range.LockAspectRatio = msoTrue
        
        'スライドサイズ取得
        w = ActivePresentation.PageSetup.SlideWidth
        h = ActivePresentation.PageSetup.SlideHeight
        
        'スライドの中央に召喚
        .Range.Left = (w - .Range.Width) / 2
        .Range.Top = (h - .Range.Height) / 2
            
    End With
End Sub
スポンサーリンク

実行結果

実行するとスライドの中央に大阪万博2025ロゴが召喚されます。

人気記事

PowerPoint「画像の透過」透明度を下げ薄くする方法
PowerPointで画像や写真を透過して薄くする方法をご紹介します。PowerPoint 2019は画像を直接透過できますが、PowerPoint 2016以前ではできないため、画像を図形の中に挿入してから透明度を下げる必要があります。
PowerPointで図形をロックしたり固定を解除する方法
PowerPointで図形、画像、テキストボックス、背景、ガイドをロック（固定）するテクニックをご紹介します。合わせて、図形が選択できない時に固定を解除する方法、スクロールでのスライド間の移動をロックする方法も解説します。
PowerPointで文字をアーチ状・波形・円に沿って入力する方法
PowerPointで文字をアーチ状や波形に曲げたり、円形に入力する方法をご紹介します。文字を変形させるとリボンの形状に合わせたり、円形オブジェクトに沿わせることができます。
PowerPoint「囲み文字」で文字を四角や丸で囲む方法
PowerPointで文字を四角「□」や丸「○」で囲んだ「囲み文字（囲い文字）」を作る方法をご紹介します。文字と図形を組み合わせてデザイン性に優れた囲み文字が作れます。合わせて「囲み文字アニメーション」「囲み文字マクロ」も解説します。
PowerPointでサイズがバラバラな図形や画像の大きさを一括で揃える方法
PowerPointで複数のサイズがバラバラな図形、グラフ、画像、テキストボックスの大きさを一括で揃える方法をご紹介します。オブジェクトのサイズを揃えると整ったレイアウトを組むことができます。
PowerPointでルビ（ふりがな）を振る3つの方法
「PowerPointでルビを振る方法は？」「ルビが表示されない…」の疑問にお答えします。パワポでルビを振るには「2行にする」「括弧書きにする」「Wordオブジェクトを挿入する」の3つの方法があります。同じ要領で文字の上に点（圏点）をつける方法も解説します。
PowerPointで図として保存の解像度を高画質に保つ方法
PowerPointで画像を「図として保存」するとき、できるだけ解像度を落とさず高画質を保った状態にする方法をご紹介します。通常の「図として保存」では画質が劣化してしまうので、挿入時の元の画像を保存しましょう。
PowerPointでA4印刷用のスライドサイズに設定する
PowerPointでスライドを印刷用のA4サイズにする方法、A4からA3に変更する方法をご紹介します。「スライドのサイズ指定」一覧で選択する「A4 210 x 297mm」は、印刷用のA4サイズではありません。サイズ別ダウンロードファイル付き。
PowerPointの画像が保存やPDFで劣化しない設定方法
PowerPointの画像が保存やPDF変換時に解像度が落ちて画質が劣化してしまう時の対処法です。PowerPointには、解像度を勝手に落とす初期設定があるので、意図せず画像が圧縮されないように「高解像度で保存する設定」に変更しましょう。
PowerPointで使える飾り枠（フレーム）素材集A4用21選
PowerPointで使えるA4サイズ用の飾り枠（フレーム）の素材集です。図形の組み合わせが織りなすフレームアイデア21選をお楽しみください。作成ファイルのダウンロードもできますので、ご活用いただけましたら幸いです。
PowerPointで外枠をA4スライドの周囲に一瞬で作る方法
PowerPointでフレームの図形を使い、A4サイズのスライドに外枠を作る方法をご紹介します。合わせて、「枠の幅を指定するマクロ」「枠を利用して線にパターンを設定したように見せる方法」「印刷時にスライドに枠線を付ける方法」も解説します。
PowerPointで挿入後の四角形や画像を角丸に変更する方法
PowerPointで正方形や長方形を簡単に「角丸四角形」に変更する方法、画像を角丸に変更する方法をご紹介します。四角形で作ったけど「やっぱり角丸にしたい」「作り変えるのが手間だな」といったときに修正が楽になる時短テクニックです。
パワポでバーチャル背景を作る【Zoom、Teams、Skype】
PowerPointでZoom、Teams、SkypeなどのWEB会議用ツールで使えるバーチャル背景を作る方法をご紹介します。スライドをバーチャル背景の推奨サイズに設定し、自分専用のおもしろバーチャル背景や動く背景を作りましょう。
PowerPointで美し過ぎる「半円」を作るテクニック
PowerPointで「半円」の作り方に困ったことはないでしょうか？図形の「部分円」で作れそうですが、調整が難しく正確にできません。そこで「図形で作った半円は美しくない？」を検証し、美し過ぎる半円を作るテクニックをご紹介します。
PowerPointで目次のページ番号をリーダー線でつなげ揃える方法
PowerPointで目次の項目とページ番号を「リーダー線」でつなげ、ページ番号を綺麗に揃える方法をご紹介します。タブと下線を組み合わせて調整しやすいリーダー線を作りましょう。三点リーダー「…」を使わないのがポイントです。
PowerPointで図形を整列・等間隔・間隔指定で並べる方法
PowerPointで複数の図形を整列で揃えたり、等間隔や指定値を空けて並べる方法をご紹介します。整列ツールやスマートガイドを使ってきれいなレイアウト作りを心がけましょう！
パワポで使える！かわいいフォント18選（手書き風・マジックペン）
PowerPointで使える「かわいいフォント」をまとめました。手書き風、マジックペン風、POP体、ドットフォントなどの商用利用可能なフリーフォントになります。かわいいデザインに大活躍！パワポでかわいいを作ろう！
PowerPointで黒猫画像の色を反転して白猫にする方法
PowerPointで画像を黒色から白色に反転させたいという時ありませんか？画像編集ソフトを使わずにPowerPointのみで画像の色を反転させることができます。合わせてアニメーション機能を使い、オブジェクトの色を黒色から白色に反転させるアニメーションの作り方もご紹介します。
PowerPointでトリミング枠を回転して斜めにカットする方法
PowerPointは、画像とトリミング枠がセットになっています。画像を回転させるとトリミング枠も回転するので、斜めにトリミングするには工夫が必要です。今回は、「斜めトリミング」「図形でマスク」「対角線上にカット」する方法をご紹介します。
PowerPointで金色グラデーションをテーマの色で簡単に作る方法
PowerPointで金色単色と金色グラデーションを「テーマの色」から選択するだけで簡単に作る方法をご紹介します。さらに金色グラデーションの文字に「3-D書式」効果を適用し、質感と重厚感を加えます。