소프트웨어 파워포인트에서 슬라이드-도형서식-텍스트옵션 을 전체로 바꿀 수 있나요?
2021.04.29 06:51
슬라이드가 약 100여개 되는데, 이 슬라이드 전부의 도형서식-텍스트옵션을 한꺼번에 바꿀 수 있나요?
주로 텍스트상자의 세로옵션을 가운데로 바꾸는 겁니다.
댓글 [7]
-
jink 2021.04.29 13:03
-
지후빠 2021.04.30 19:03
VBA로 가능할지 모르겠습니다. 파포에 관한 VBA 정보는 좀 없는 편이라서...
혹시 모르니 샘플파일을 올려주시면 테스트 해보겠습니다.
-
brucex 2021.05.01 22:27
글꼴 크기만 54로 바꾸고 싶습니다.
-
지후빠 2021.05.02 00:24
안녕하세요? 원하시는 결과와 일치할지는 모르겠지만 얼추 비슷하게는 되는 것 같습니다. ^^
파워포인트를 열어서 alt + F11 VBA 편집기를 실행후 "삽입 -> 모듈"로 모듈 삽입후 다음 코드를 붙여넣기 합니다.
Sub 표안글자서식정리()
Dim oSld As Slide
Dim oShp As Shape
Dim oTbl As Table
Dim lRow As Long
Dim lCol As Long
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTable Then
Set oTbl = oShp.Table
For lRow = 1 To oTbl.Rows.Count
For lCol = 1 To oTbl.Columns.Count
With oTbl.Cell(lRow, lCol).Shape.TextFrame
.TextRange.Text = Replace(.TextRange.Text, Chr(13), "")
.TextRange.Font.Size = 54 '.TextRange.Font.Name = "맑은 고딕"
.VerticalAnchor = msoAnchorMiddle '.HorizontalAnchor = msoAnchorCenter
End With
Next 'lCol
Next 'lRow
End If
Next 'oShp
Next 'oSld
End Sub
VBA 편집기를 종료하고 파워포인트 "보기 -> 매크로 -> 표안글자서식정리" 를 실행합니다.결과를 살펴보시고 좀 더 수정하시면 될 것 같습니다. ^^참고로 과거 파워포인트에서 VBA 매크로 기록 기능이 사라진후 안해본 작업이라 인터넷 검색해서 정리 해봤습니다.원하시는 결과 얻으시길 바랍니다. ^&^ -
지후빠 2021.05.02 20:38
위 매크로로 수정된 파워포인트 파일 올립니다. (보내주신 압축파일 암호와 동일합니다.^^)
첨부파일은 삭제하였습니다.~
-
brucex 2021.05.03 06:28
와, 신기합니다.
전부 바뀌네요!
-
brucex 2021.05.03 06:27
고맙습니다!
같은 슬라이드에 있는 도형만 가능한것으로 알고 있는데 다른 방법이 있는지는 모르겠네요.