ユーザー名を取得する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の使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

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

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

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

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

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

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

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

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

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

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

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