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

対象：PowerPoint2003, PowerPoint2007, PowerPoint2010

「powerpoint vba ユーザ名取得」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPointのVBA（Visual Basic for Applications）で、ユーザー名を取得する方法を探していらしたのでしょう。

WordでもExcelでも、
「MsgBox Application.UserName」
というコードで、メッセージボックスにユーザー名を表示させることができます。

しかし、PowerPointで
「MsgBox Application.UserName」
を実行すると
「コンパイルエラー:
メソッドまたはデータメンバが見つかりません。」
というエラーになってしまいます。

どういうわけだか、PowerPointのApplicationオブジェクトにはUserNameプロパティがないのです。

PowerPoint VBE（Visual Basic Editor）のオブジェクトブラウザで
「user」
といった文字列を検索しても、WordやExcelのような、Application.UserNameに該当するプロパティは見当たりません。

［スポンサードリンク］

真面目にやるならば、レジストリからユーザー名を取得したりすることになるのでしょうが、PowerPointがインストールされているパソコンなら、Wordもインストールされている確率が非常に高いでしょうから、Wordのユーザー名を取得するというのも一つの解なんじゃないかと思います。

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

Sub ユーザー名を取得する()

　Dim wrd As Object
　
　Set wrd = CreateObject("Word.Application")
　MsgBox wrd.UserName
　
　Set wrd = Nothing

End Sub

WordオブジェクトをCreateObjectして
　Set wrd = CreateObject("Word.Application")

そのUserNameプロパティを取得してメッセージボックスに表示して
　MsgBox wrd.UserName

最後にWordオブジェクトを破棄しています。
　Set wrd = Nothing

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

3年前(2021年4月)の
人気記事

「パワーポイントマクロ・PowerPoint VBAの使い方」の記事一覧