PPT의 shape 이름 지정하기

아래의 코드를.. ppt내에서 macro를 추가하고..
shape을 선택하고.. 추가된 macro을 실행하면.. shape 이름을 지정할 수 있음.

Sub NameShape()
'used to name shapes
'select the shape by clicking on it then go to macros and and then run this code !!!! 
'you can then use that name in VBA to reference that object. lot easier than trying to guess at "rectangle 2" or what index a object is.

    Dim Name$
    On Error GoTo AbortNameShape
    If ActiveWindow.Selection.ShapeRange.Count = 0 Then
        MsgBox "No Shapes Selected"
        Exit Sub
    End If
    Name$ = ActiveWindow.Selection.ShapeRange(1).Name
    Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)
    If Name$ <> "" Then
        ActiveWindow.Selection.ShapeRange(1).Name = Name$
    End If
    
    Exit Sub
    
AbortNameShape:
    MsgBox Err.Description
    
End Sub

출처: http://www.officetutor.co.kr/board/Dtype_tip/bfrmvw.asp?f_tn=Dtip_all&f_bno=165&page=&f_categb=P04&fchk=&fval

이 글은 카테고리: Programming에 포함되어 있으며 태그: , (이)가 사용되었습니다. 고유주소를 북마크하세요.

1 Response to PPT의 shape 이름 지정하기

  1. konahn 님의 말:

    I get “no active window” error.
    Powerpoint automatically pass the shape object just clicked as an argument,
    So, simple code here. I changed a little bit.
    =========================
    Sub NameShape(myS As Shape)
    ‘give a name to the clicked shaped. Give them easier names rather than difficult “corner rounded rectangle 2”

    Dim Name$
    On Error GoTo AbortNameShape
    Name$ = myS.Name
    Name$ = InputBox$(“Give this shape a name”, “Shape Name”, Name$)
    If Name$ “” Then
    myS.Name = Name$
    End If

    Exit Sub

    AbortNameShape:
    MsgBox Err.Description

    End Sub

댓글 남기기

이메일은 공개되지 않습니다. 필수 입력창은 * 로 표시되어 있습니다