텍스트박스를 일괄 도형으로 변환하기

텍스트를 복사해서 Ctrl-Alt-V로 이미지로 붙여넣을 수 있는데요

​

이미지는 비트맵과 벡터방식 2가지가 있습니다.

JPG, PNG는 점을 찍는 비트맵방식인데 확대하면 깨지는 단점이 있지만

SVG,EMF 등은 선을 그리는 벡터방식이라 확대해도 화질이 유지됩니다.

​

그런데 SVG는 하위버전에서는 지원하지 않기 때문에 호환이 염려되고

EMF는 텍스트 폰트를 선으로 변환하지 않는 문제가 각각 있습니다.

​

그렇다면 여기서 가장 좋은 선택은 텍스트 글자를 파워포인트 도형으로 변환하는 것입니다.

그 방법은 바로 텍스트 상자에서 임의의 빈 텍스트상자를 도형병합(빼기)를 하는 방법입니다.

아무 빈 텍스트 상자를 추가하고 원하는 텍스트상자에서 이 빈 도형을 빼는 것입니다.

텍스트상자나 도형에서 빈 텍스트상자를 빼주면 점편집할 수 있는 오피스 도형으로 변환됩니다.

​

여러 텍스트상자를 변환하려면 아래와 같은 VBA로 일괄 변환할 수도 있습니다.

(Alt-F11 누르고 삽입> 모듈 추가후 창을 닫고 원하는 텍스트 상자들을 선택하고 Al-F8로 매크로 실행 또는 빠른 실행에 추가하고 Alt+숫자키로 바로 실행)

Sub ConvertToOfficeShapes()
    
    Dim shp As Shape, tshp As Shape
    Dim sld As Slide
    
    If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox "텍스트상자(들)를 선택하세요.": Exit Sub
    Set sld = ActiveWindow.Selection.SlideRange(1)
    
    For Each shp In ActiveWindow.Selection.ShapeRange

        Set tshp = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 10, 10)
        Call sld.Shapes.Range(Array(shp.ZOrderPosition, tshp.ZOrderPosition)). _
            MergeShapes(msoMergeSubtract, shp)
        
    Next shp
    
End Sub

실행 영상:

 

 

단, 이 방법도 단점이 하나 있는데

여러가지 색깔이나 효과가 들어간 텍스트의 경우 한 가지 색깔로 단순하게 바뀝니다.

또한 2010아래버전에서는 도형병합기능을 지원하지 못합니다.