[파워포인트] 엑셀 표(테이블)

PowerPoint에서 Excel 스프레드시트를 삽입할 때 공백 제거

아래와 같이 회계 형식으로 되어 있는 엑셀에서 파워포인트로 스프레드시트를 첨부할 때 항상 망설입니다.


[파워포인트] 엑셀 표(테이블) 1

-- 광고코드시작 -->

--본문광고-->
--본문광고-->

-- 광고코드끝 -->

의도하지 않은 격차가 있을 것이라는 것을 알고 있기 때문입니다.


[파워포인트] 엑셀 표(테이블) 2

-- 광고코드시작 -->

--본문광고-->
--본문광고-->

-- 광고코드끝 -->

해결책은 간단합니다.

표 전체를 선택한 후(ctrl+h)를 공백(스페이스바)으로 바꾸면 모두 바뀝니다.


[파워포인트] 엑셀 표(테이블) 3

-- 광고코드시작 -->

--본문광고-->
--본문광고-->

-- 광고코드끝 -->


[파워포인트] 엑셀 표(테이블) 4

이 정도면 메모를 남기지 않았을 텐데, 현명한 사람이라면 알겠지만 아직 미지의 공간이 있다.

이 공간은 이유를 모르겠지만 단순한 공간(” “)이 아니므로 변경할 수 없습니다.


[파워포인트] 엑셀 표(테이블) 5

-- 광고코드시작 -->

--본문광고-->
--본문광고-->

-- 광고코드끝 -->

다음 코드를 시도했습니다.

특별한 것이 아니라 공백, 그 위의 홀수 공백 및 개행을 제거하는 코드입니다.

보결 끄다()
어둑한 쉬프 처럼 모양
어둑한처럼
어둑한 제이 처럼
만약에 ActiveWindow.Selection.유형 = ppSelectionShapes 그 다음에
을 위한 모든 Schps ~ 안에 ActiveWindow.Selection.ShapeRange
문장 쉬프 = Schps
출구
다음 Schps
다른
MsgBox “테이블이 없습니다!
, 감탄사
DD로 이동:
종료
만약에 shp. HasTable 그 다음에
을 위한 = 하나 에게 shp.Table.Rows.Count
을 위한 제이 = 하나 에게 shp.Table.Columns.Count
shp. 테이블 행.기사().세포(제이).Shape.TextFrame.TextRange.텍스트 = _
대리자(shp. 테이블. 행.기사().세포(제이).Shape.TextFrame.TextRange.Text, ” “, “”)
shp. 테이블 행.기사().세포(제이).Shape.TextFrame.TextRange.텍스트 = _
대리자(shp. 테이블. 행.기사().세포(제이).Shape.TextFrame.TextRange.Text, ” “, “”)
shp. 테이블 행.기사().세포(제이).Shape.TextFrame.TextRange.텍스트 = _
대리자(shp. 테이블. 행.기사().세포(제이).Shape.TextFrame.TextRange.Text, vbCr, “”)
다음 제이
다음
종료
디:

엔드 서브

나중에 ppt 툴킷에 추가할 계획이지만… 지금은 아닙니다.

그것은 방해한다.

끝.