Word는 문서에 삽입하는 이미지에 대한 많은 정보를 함께 보관합니다. 이 정보는 Word에서 이미지 크기, 위치 지정 및 표시 방법을 인식하는 데 필요합니다. 문서의 이미지에 대한 자세한 정보를 찾으려면 Word에서 정보를 저장하는 방법에 대해 알아야합니다.

이미지는 일반 모양 또는 인라인 모양의 두 가지 유형의 그래픽 개체 중 하나로 저장됩니다. 일반 모양은 텍스트 레이어에있는 인라인 모양과 달리 그리기 레이어에있는 모양입니다. 두 유형의 객체는 서로 다른 객체 컬렉션으로 저장됩니다. 일반 모양은 Shapes 컬렉션에 있고 인라인 모양은 InlineShapes 컬렉션에 저장됩니다. 객체에 대한 정보에 액세스하려면 약간의 VBA를 사용해야합니다.

다음 VBA 매크로는 Word 2000 (또는 이후 버전)에서 작동하여 문서 내의 모든 그래픽 개체의 크기를 포인트와 픽셀로 표시하는 문서를 만듭니다.

Sub FigureInfo()

Dim iShapeCount As Integer     Dim iILShapeCount As Integer     Dim DocThis As Document     Dim J As Integer     Dim sTemp As String

Set DocThis = ActiveDocument     Documents.Add

iShapeCount = DocThis.Shapes.Count     If iShapeCount > 0 Then         Selection.TypeText Text:="Regular Shapes"

Selection.TypeParagraph     End If     For J = 1 To iShapeCount         Selection.TypeText Text:=DocThis.Shapes(J).Name         Selection.TypeParagraph         sTemp = "     Height (points): "

sTemp = sTemp & DocThis.Shapes(J).Height         Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Width (points): "

sTemp = sTemp & DocThis.Shapes(J).Width         Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Height (pixels): "

sTemp = sTemp & PointsToPixels(DocThis.Shapes(J).Height, True)

Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Width (pixels): "

sTemp = sTemp & PointsToPixels(DocThis.Shapes(J).Width, False)

Selection.TypeText Text:=sTemp         Selection.TypeParagraph         Selection.TypeParagraph     Next J

iILShapeCount = DocThis.InlineShapes.Count     If iILShapeCount > 0 Then         Selection.TypeText Text:="Inline Shapes"

Selection.TypeParagraph     End If     For J = 1 To iILShapeCount         Selection.TypeText Text:="Shape " & J         Selection.TypeParagraph         sTemp = "     Height (points): "

sTemp = sTemp & DocThis.InlineShapes(J).Height         Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Width (points): "

sTemp = sTemp & DocThis.InlineShapes(J).Width         Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Height (pixels): "

sTemp = sTemp & PointsToPixels(DocThis.InlineShapes(J).Height, True)

Selection.TypeText Text:=sTemp         Selection.TypeParagraph         sTemp = "     Width (pixels): "

sTemp = sTemp & PointsToPixels(DocThis.InlineShapes(J).Width, False)

Selection.TypeText Text:=sTemp         Selection.TypeParagraph         Selection.TypeParagraph     Next J End Sub

Word 97에서 PointsToPixels 문을 인식하지 못하기 때문에이 매크로는 Word 97에서 작동하지 않습니다. 이 문을 사용하는 줄을 제거하거나 자체 PointsToPixels 함수를 만들면 매크로가 Word 97에서 잘 작동합니다.

매크로는 일반 도형의 이름을 반환하지만 인라인 도형의 이름은 반환하지 않습니다. 그 이유는 Word가 인라인 셰이프의 이름을 유지하지 않기 때문입니다. 문서에 일반 모양을 삽입하면 (다시 그리기 레이어에) Word는 사각형 2 또는 타원형 3과 같은 모양에 이름을 할당합니다.

_ 참고 : _

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

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

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

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

link : / wordribbon-Determining_Picture_Size_in_a_Macro [매크로에서 사진 크기 결정].