web-dev-qa-db-ja.com

PowerPointスライド内のオブジェクトに名前を付ける方法は？

そのため、VBを使用したPowerPointでテキストボックスなどのオブジェクトに名前を付ける方法は知っていますが、リボン（PowerPoint 2007）を介してオブジェクトに名前を付ける方法があるかどうか疑問に思いました。たとえば、スライドにテキストボックスを追加する場合、名前を割り当てる方法はありますか（アクセス中のプロパティウィンドウのようなもの、または名前を入力できるExcel 2003の左上のテキストボックス） ？

基本的には、後でコードで参照できるようにするためです。コードを使用して、事実の後に追加するすべてのオブジェクトに名前を付ける必要はありません。おそらくリボンを介して簡単な方法ですか？

vbapowerpointpowerpoint-vba
41
Justin

はい。オブジェクト（テキストボックス、図形など）をクリックしてオブジェクトを選択し、描画ツール| [フォーマットタブで、アレンジグループの選択ペインをクリックします。そこから、オブジェクトの名前が表示されます-ダブルクリック（または F2）任意の名前で名前を変更します。選択を解除すると、名前が変更されます。 Homeタブ-> Drawing group-> Arrangeドロップダウン-> Selectionからもアクセスできます。 =ペインまたは ALT + F10。

90
Todd Main

オブジェクトを選択->形式->選択ペイン->ダブルクリックして名前を変更

enter image description here

5
Bhanu Sinha

上記の答えは正しいですが、コード内で名前を変更するために名前を変更することはお勧めしません。

名前には注意が必要です。彼らは変わることができます。 ShapeIdとSlideIdを使用する必要があります。

PowerPointは名前に依存しており、通常の操作を妨げる可能性があるため、特にプログラムで図形の名前を変更することに注意してください。

4
Dudi

これはIS元の質問に対する回答ではなく、@ Dudiのコメントに対する@Teddyの質問に対する回答です

以下は、VBAエディターでアクティブなプレゼンテーションのIDをイミディエイトウィンドウ（Ctrl + G）に一覧表示する方法です。

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape

    For Each curSlide In ActivePresentation.Slides
        Debug.Print curSlide.SlideID
        For Each curShape In curSlide.Shapes

                If curShape.TextFrame.HasText Then
                    Debug.Print curShape.Id
                End If

        Next curShape
    Next curSlide
End Sub
3
Hauns TM

[挿入]-> [オブジェクト]-> [ファイルから作成]-> [参照]をクリックします。

ファイルが選択されたら、「アイコンの変更」オプションを選択すると、ファイルの名前を変更し、必要に応じてアイコンを変更できます。

お役に立てれば！

0
Sha