AmazonでMicrosoft 365を1ヶ月多くお得に更新 👉

【パワポVBA】PCのユーザー名を取得するマクロ（Win/Mac）

2023.11.21

PowerPoint VBAでPCのユーザー名を取得するマクロをご紹介します。WindowsとMacではコードが異なり、Macに関してはAppleScriptと連携する必要があります。

マクロでファイルまでのパスを入力する場合、自動でユーザー名を取得するように設定しておけば、ユーザーごとにコードを変更する必要がありません。

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

Windowsのユーザー名を取得するマクロ

コード

Sub GetUserNameWin()

    Dim UserName As String
    UserName = Environ$("Username")
    MsgBox "ユーザー名は " & UserName & " です。"

End Sub

このコードは、Environ$関数を使用してWindowsの環境変数からユーザー名を取得し、メッセージボックスで表示します。

実行結果

ユーザー名がメッセージボックスで表示されました。

Macのユーザー名を取得するマクロ

コード

MacのPowerPoint VBAでユーザー名を取得するための直接的な方法はありません。これは、MacのVBAがWindowsのVBAとは異なり、Environ$関数などの一部の関数が利用できないためです。

しかし、代替的な方法として、AppleScriptを使用してユーザー名を取得し、それをVBAに渡すことができます。

以下がそのサンプルコードです。

Sub GetUserNameMac()

    Dim UserName As String
    UserName = MacScript("do shell script ""whoami""")
    MsgBox "ユーザー名は " & UserName & " です。"

End Sub

このコードは、whoamiコマンドを使用して現在のユーザー名を取得し、それをVBAに返してメッセージボックスで表示します。

実行結果

ユーザー名がメッセージボックスで表示されました。

人気記事

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