문서의 그래픽 크기를 특정 비율로 정기적으로 조정해야 할 수 있습니다. 메뉴를 사용하여 크기 조정을 수행하는 것은 번거로울 수 있으므로 도구 모음 단추 또는 바로 가기 키에 할당 할 수있는 매크로를 사용하여 크기 조정을 수행 할 수 있습니다. 다음 매크로는 스케일링을 매우 잘 처리합니다.

Sub PictSize()

Dim PercentSize As Integer

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



If Selection.InlineShapes.Count > 0 Then         Selection.InlineShapes(1).ScaleHeight = PercentSize         Selection.InlineShapes(1).ScaleWidth = PercentSize     Else         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _           RelativeToOriginalSize:=msoCTrue     End If End Sub

매크로는 먼저 선택한 이미지의 크기를 조정할 비율을 묻고 기본값으로 75 (75 %)를 제공합니다. 백분율을 지정하면 매크로는 선택한 그래픽이 인라인인지 부동 그래픽인지 확인합니다. 이 작업을 수행하는 이유는 개체 사양이 각 경우에 다르며 크기 조정이 지정되는 방식이 다르기 때문입니다. Inline 개체는 InlineShapes 컬렉션에 속하지만 부동 개체는 ShapeRange 개체를 사용하여 설정됩니다.

문서의 모든 그래픽 크기를 동일한 비율로 조정하려면 위의 매크로 만 수정하여 각 인라인 그래픽과 각 부동 그래픽을 차례로 실행하도록해야합니다.

Sub AllPictSize()

Dim PercentSize As Integer     Dim oIshp As InlineShape     Dim oshp As Shape

PercentSize = InputBox("Enter percent of full size", _       "Resize Picture", 75)



For Each oIshp In ActiveDocument.InlineShapes         With oIshp             .ScaleHeight = PercentSize             .ScaleWidth = PercentSize         End With     Next oIshp

For Each oshp In ActiveDocument.Shapes         With oshp             .ScaleHeight Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue             .ScaleWidth Factor:=(PercentSize / 100), _               RelativeToOriginalSize:=msoCTrue         End With     Next oshp End Sub

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (7694)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Scaling_Graphics_in_a_Macro [매크로에서 그래픽 크기 조정].