PowerPoint에서 Excel 스프레드시트를 삽입할 때 공백 제거
아래와 같이 회계 형식으로 되어 있는 엑셀에서 파워포인트로 스프레드시트를 첨부할 때 항상 망설입니다.
-- 광고코드시작 -->
--본문광고-->
--본문광고-->
--본문광고-->
-- 광고코드끝 -->
의도하지 않은 격차가 있을 것이라는 것을 알고 있기 때문입니다.
-- 광고코드시작 -->
--본문광고-->
--본문광고-->
--본문광고-->
-- 광고코드끝 -->
해결책은 간단합니다.
표 전체를 선택한 후(ctrl+h)를 공백(스페이스바)으로 바꾸면 모두 바뀝니다.
-- 광고코드시작 -->
--본문광고-->
--본문광고-->
--본문광고-->
-- 광고코드끝 -->
이 정도면 메모를 남기지 않았을 텐데, 현명한 사람이라면 알겠지만 아직 미지의 공간이 있다.
이 공간은 이유를 모르겠지만 단순한 공간(” “)이 아니므로 변경할 수 없습니다.
-- 광고코드시작 -->
--본문광고-->
--본문광고-->
--본문광고-->
-- 광고코드끝 -->
다음 코드를 시도했습니다.
특별한 것이 아니라 공백, 그 위의 홀수 공백 및 개행을 제거하는 코드입니다.
보결 끄다()
어둑한 쉬프 처럼 모양
어둑한 나 처럼 긴
어둑한 제이 처럼 긴
만약에 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 툴킷에 추가할 계획이지만… 지금은 아닙니다.
그것은 방해한다.
끝.