次の方法で共有

Application.AddResourcesFromProjectServer メソッド (Project)

  • [アーティクル]

Project Server に接続していて、現在リソース ビューに存在する場合は、[ ビルド チーム ] ダイアログ ボックスを開きます。

構文

expression. AddResourcesFromProjectServer

expressionApplicationオブジェクトを表す変数 。

戻り値

Boolean

注釈

AddResourcesFromProjectServer メソッドは、リソース ビューでのみ使用し、トラップ可能なエラー (エラー コード 1100年) を返します。 非リソース ビューに適用するとします。

例

The following example displays the Build Team from Project Server dialog box. 最初に、Project は 、[コラボレーション オプション] ([共同作業 ] メニュー) で指定された URL を Microsoft Internet Explorer の信頼済みサイトの一覧に追加します。 確認すると、Project は リソース シート ビューに切り替え、ワークグループ モードでマイ コンピューターに接続されている場合は、[ プロジェクト サーバーからのビルド チーム ] ダイアログ ボックスが表示されます。 Project Server に接続すると、[プロジェクト名からチームをビルド] ダイアログ ボックスが表示されます。

Sub AddResources() 
   If Projects.Count = 0 Then 
      MsgBox "You must have at least one active project open." 
      Exit Sub 
   End If 
 
   If ActiveProject.ServerURL = "" Then 
      MsgBox "A Project Server URL has not been " _ 
         & "specified." & Chr(13) & "Click OK to select " _ 
         & "'Collaborate Using Project Server' and " _ 
         & "specify a valid URL in the Options dialog box " _ 
         & "(Tools menu)." 
      Application.OptionsWorkgroup 
   Else 
      ActiveProject.MakeServerURLTrusted 
      ViewApply Name:="Resource Sheet" 
      Application.AddResourcesFromProjectServer 
   End If 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。