둥근 네모의 둥근 정도를 도형이 크기와 상관 없이 유지하는 방법

관련: 지식인

 

1. 둥근 네모의 둥근 곡률값은 그대로이지만 도형 크기에 따라 변하는 상대적인 값입니다.

위처럼 세 도형 모두 곡률(Adjustments(1))의 값이 0.16667 로 동일합니다.

하지만 이 곡률값은 도형의 크기에 비례해서 나타내는 상대적인 값이라 도형이 커질수록 곡선부분도 커집니다.

 

둥근 네모의 Adjustment(1) 값은 도형의 넓이나 높이 대비 둥근 부분 원의 반지름의 비율입니다.​

아래 도형의 곡률값은 최대값인 0.5인 상태입니다.

도형의 높이의 절반에서 곡선이 생겨나고 있고 최대값인 0.5일 때 정확히 둥근 원과 같게 됩니다.

이렇듯 도형의 곡률로 그려지는 둥근 네모의 경우 둥근 부분의 크기를 절대적인 값으로 유지할 수 없습니다.

 

​

2. 도형을 확대해도 곡선 부분의 크기를 유지하고 싶다면

​

2-1. 도형의 곡률값을 도형크기에 따라 비례해서 다르게 적용해야 합니다.

Alt-F11 창에 삽입 > 모듈 추가 후에 아래 코드를 붙여 넣고 원하는 크기를 myAdj 값으로 수정하고 창을 닫은 다음

원하는 도형을 선택하고 Alt+F8로 Adjust매크로를 실행하면 지정된 크기에 맞춰서 곡률값을 계산해서 적용해 줍니다. 

Sub Adjust()

    Dim shp As Shape
    Dim myAdj As Single
    
    myAdj = 10 '원하는 곡률의 크기
    On Error Resume Next
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    With shp
        .Adjustments(1) = 1 * myAdj / .Height
        Debug.Print .Adjustments(1)
    End With
    
End Sub

 

위 예시의 경우 도형 곡률 크기를 10으로 유지하도록 도형의 크기가 커지면 Adjustment(1)의 값을 줄여줍니다.

 

2-2. 또는 아래와 같은 편법(?)을 이용해보세요.

네모 도형을 그리고 윤곽선을 안쪽과 같은 색으로 채웁니다.

그리고 연결점의 종류를 '원형'으로 설정하고 선의 두께를 원하는 만큼 두껍게 설정하면

선의 두께만큼만 윤곽선이 둥근 모양이 되고 확대해도 이 크기를 유지하게 됩니다.

 

 

샘플 파일입니다.

Adjustment1.pptm

0.04MB