파워포인트 특정 위치에 있는 텍스트 상자 한꺼번에 삭제

본문 바로가기

파워포인트 특정 위치에 있는 텍스트 상자 한꺼번에 삭제

작성일 2024.03.27댓글 1건
    게시물 수정 , 삭제는 로그인 필요

파워포인트 특정 위치에 있는 텍스트 상자를 한꺼번에 삭제하고 싶은데 어떻게 하나요?
슬라이드수가 400장이 넘어가서요ㅜㅜ

알려주시면 감사하겠습니다..


#파워포인트 특정 슬라이드 크기 변경 #파워포인트 특정 슬라이드 이동 #파워포인트 특정 글꼴 찾기 #파워포인트 특정 색 변경 #파워포인트 특정 슬라이드만 세로 #파워포인트 특정 슬라이드 반복 #파워포인트 특정 글자 색 변경 #파워포인트 특정 글자 애니메이션 #파워포인트 특정 슬라이드만 저장

profile_image 익명 작성일 -

중복 질문인데요.

​

이번에는 현재 선택한 도형 주변까지 포함해서 그 범위안에 들어가는 모든 도형을 삭제하는 경우입니다.

도형 주변에 T값(25pt) 만큼 추가범위까지 포함해서 삭제합니다. T를 0으로 바꿔도 됩니다.

Const T As Single = 25 '여유 '현재 선택한 도형 주변에 T값만큼 추가범위까지 포함해서 삭제 Sub DeleteNearShapes() Dim sld As Slide Dim nshp As Shape, shp As Shape Dim i As Long On Error Resume Next Set nshp = ActiveWindow.Selection.ShapeRange(1) If nshp Is Nothing Then MsgBox "기준 도형을 선택하세요.": Exit Sub On Error GoTo 0 For Each sld In ActivePresentation.Slides For i = sld.Shapes.Count To 1 Step -1 Set shp = sld.Shapes(i) With nshp If Not shp Is nshp Then If shp.Left > .Left - T And shp.Top > .Top - T And _ shp.Left + shp.Width < .Left + .Width + T And shp.Top + shp.Height < .Top + .Height + T Then shp.Delete End If End If End With Next i Next sld nshp.Delete End Sub

샘플 파일 첨부합니다.

연관된 질문 답변 리스트

각각의 텍스트 상자 위치를 한꺼번에...

파워포인트에서 각 슬라이드 내의 텍스트 상자를 왼쪽에서 오른쪽으로 이동시키고... 방법말고 한꺼번에 바꾸는 방법이 있을까요? 슬라이드 마스터의 제목, 부제목...

파워포인트 텍스트상자 질문

... 글꼴 너비간격 조정과 텍스트상자 위치 이동으로 겨우... 기본 테마의 텍스트 상자 서식에 문제가 있는 걸로... 지정'하면 파워포인트를 열 때 마다 새 문서가 해당...

파워포인트 텍스트상자 고정

초보라서 잘 모르겠습니다 ㅠㅠ 파워포인트2007에서 각 페이지마다... 쓸때마다 텍스트 상자가 같은 위치에 딱 고정되서 깔끔하게 쓸수 있는 방법 없을까요? 가르쳐주시면...

파워포인트 특정텍스트 패턴만...

파워포인트 특정글자만 색을 변경 하고 싶습니다. 일일이 수작업으로 글자색을 변경 하고 있는데요.ㅠ 한꺼번에... 일반 텍스트상자처럼 보입니다. 그리고 화살표도 없이...