web-dev-qa-db-ja.com

PowerPointでオブジェクトの名前を変更する

おそらく非常にばかげた質問ですが、PowerPointでオブジェクトの名前を変更する方法がわかりません。たとえば、すべてのグラフはデフォルトで「グラフ1」などと呼ばれます。誰かがそれを手伝ってくれませんか。ありがとう！

ms-officepowerpointpowerpoint-vba
16
Eleonor

PowerPoint 2007では、これは[選択]ペインから実行できます。

選択ペインを表示するには、リボンの[ホーム]タブをクリックし、[配置]、下部の[選択ペイン...]の順にクリックします。右側に選択ペインが開きます。 （またはCTRL + F10を押します）

オブジェクトの名前を変更するには、最初にオブジェクトを選択してから、[選択]ペインでオブジェクト名をダブルクリックすると、新しいオブジェクト名を入力できるようになります。

33
Franci Penov

（この回答は、開発中にもっと意味のある名前を割り当てるだけなので、オブジェクトを参照する他のコードが読みやすくなることを前提としています）。

以下のコードをサブに入れて、問題のスライドから実行します。各形状が順番に選択されるため、参照されている形状を確認できます。入力ボックスに現在の名前が表示され、新しい名前を尋ねられます。長さゼロの入力をキャンセルまたはOKすると、古い名前がそのまま残ります。このコードには名前エントリの検証がないため、必ず有効な名前のみを入力してください。一度実行した後、最初のラウンドで入力した名前が目的のオブジェクトに適用されていることを確認するために、もう一度実行できます。

ループは現在のスライド上のすべてのオブジェクトをカバーするため、複数のスライドを処理する場合は、各スライドで個別に実行する必要があります。スライド上のすべてのオブジェクトが考慮されます：タイトル、描画オブジェクト、グループ、埋め込み画像、方程式など。気にしないオブジェクトに新しい名前を入力しないでください。

開発が終了したら、ユーザーがオブジェクト名を誤って変更しないように、このコードを非表示（Private Sub）または消去することをお勧めします。

Dim s As Integer, NewName As String

With ActiveWindow.Selection.SlideRange
    For s = 1 To .Shapes.Count
        .Shapes(s).Select ' So you can see the object in question
        NewName = InputBox(.Shapes(s).Name) ' Tell what current name it is and ask for new name
        If Len(NewName) > 0 Then .Shapes(s).Name = NewName ' If you typed a new name, apply it
    Next s ' 1 To .Shapes.Count
End With ' ActiveWindow.Selection.SlideRange
1
KnomDeGuerre

あなたの助けに感謝しますが、実際には私はVBAを使用してそれをやっています...

ActiveWindow.Selection.ShapeRange(1).Name = "newname"

乾杯

0
Eleonor