none
[WORD 매크로] 도형 채우기 _ 배경 색없음 설정 RRS feed

  • 질문

  • 워드문서에서 머릿글쪽에 도형을 삽입후,

    [도형 채우기] 메뉴 >> [도형 서식]  >>[색 및 선] 탭 >>[채우기효과] 버튼 클릭 후 새로 열린 [채우기 효과] 창에서 다시 [그림]탭 선택 을 하여,

    PNG 형식의 그림을 채워 넣었습니다. 

    PNG 파일이어서 뒤에 배경을 투명하게 하고 싶어서 채우기 색 없음 효과를 주었는데요. 이때 색없음 주는 매크로코드를 알고 싶은데요.

    위에 작업을 매크로 기록으로 남긴다음 그 매크로를 다시 실행해보면 채우기 색없음은 적용이 안되더라구요.

    <채우기 색 없음 설정 전 > 사진처럼 채우기 색없음이 적용되는 매크로 코드를 알수있을까요? 제가 설정했던 매크로 코드도 맨아래 적어놓았습니다.

    *** 참고 코드 아래 첨부했습니다.

    [매크로]

    Sub Macro7()
    '
    ' Macro7 Macro
    '
    '
        Selection.ShapeRange.Fill.Visible = msoFalse
        Selection.ShapeRange.Fill.Solid
        Selection.ShapeRange.Fill.Transparency = 0#
        Selection.ShapeRange.Line.Weight = 0.75
        Selection.ShapeRange.Line.DashStyle = msoLineSolid
        Selection.ShapeRange.Line.Style = msoLineSingle
        Selection.ShapeRange.Line.Transparency = 0#
        Selection.ShapeRange.Line.Visible = msoFalse
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.Rotation = 0#
        Selection.ShapeRange.Left = 94.95
        Selection.ShapeRange.Top = 500#
        Selection.ShapeRange.Fill.Visible = msoTrue
        Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
        Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
        Selection.ShapeRange.Fill.UserPicture "사진파일 경로"
        Selection.ShapeRange.RelativeHorizontalPosition = _
            wdRelativeHorizontalPositionColumn
        Selection.ShapeRange.RelativeVerticalPosition = _
            wdRelativeVerticalPositionParagraph
        Selection.ShapeRange.RelativeHorizontalSize = _
            wdRelativeHorizontalSizeMargin
        Selection.ShapeRange.RelativeVerticalSize = wdRelativeVerticalSizeMargin
        Selection.ShapeRange.Left = CentimetersToPoints(1.35)
        Selection.ShapeRange.LeftRelative = wdShapePositionRelativeNone
        Selection.ShapeRange.Top = CentimetersToPoints(-9.73)
        Selection.ShapeRange.TopRelative = wdShapePositionRelativeNone
        Selection.ShapeRange.WidthRelative = wdShapeSizeRelativeNone
        Selection.ShapeRange.HeightRelative = wdShapeSizeRelativeNone
        Selection.ShapeRange.LockAnchor = False
        Selection.ShapeRange.LayoutInCell = True
        Selection.ShapeRange.WrapFormat.AllowOverlap = True
        Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
        Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
        Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
        Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
        Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
        Selection.ShapeRange.WrapFormat.Type = 3
        Selection.ShapeRange.ZOrder 4
    End Sub


    • 편집됨 iDeaS oF bLue 2014년 6월 2일 월요일 오전 4:15
    2014년 6월 2일 월요일 오전 4:14