none
엑셀2010 메크로 사진 넣기 관련 문의 RRS feed

  • 질문

  • 아래 첨부 코드의 밑줄친 부분을 추가하여

    셀에 들어가는 사진의 크기를 셀의 크기의 0.9 비율과

     셀의 오른쪽,왼쪽/위,아래 가운대 정렬을 하려고 했습니다.

    그러나 사진의 크기 비율은 조절 됬으나

    가운데 정렬하려고한 의도는 구현되지가 않습니다

    아마 아래 주석의 '삽입한 개체 선택' '복사' '그림으로 붙여넣기' 단계에서

    가운대 정렬 시키는 코드를 삽입해야 될것으로 생각되는데...

    위 사항 문의 드립니다.

    첨부 코드 :

    Sub Insert_Picture()

    Dim strPath As String

    Dim objPic As Object

    strPath = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png;*.emf;*.wmf")

    If strPath = "" Then Exit Sub

    Set objPic = ActiveSheet.Pictures.Insert(strPath).ShapeRange

    With objPic

        .LockAspectRatio = msoFalse

        .Height = Selection.Height * 0.9

        .Width = Selection.Width * 0.9

        .Left = Selection.Left + (Selection.Width - .Width) / 2

        .Top = Selection.Top + (Selection.Height - .Height) / 2

    End With

    objPic.Select                       ' 삽입한 개체 선택

    Selection.Copy                      ' 복사

    ActiveSheet.Pictures.Paste.Select   '그림으로 붙여 넣기

    objPic.Delete                       ' 문제가 발생하는 개체 삭제

    End Sub

    2015년 6월 8일 월요일 오전 12:59

답변

  • 아래 참고 문서 참조 부탁드립니다.

       ' Move the picture to the center of the slide. Select it.
       With ActivePresentation.PageSetup
          oPicture.Left = (.SlideWidth \ 2) - (oPicture.Width \ 2)
          oPicture.Top = (.SlideHeight \ 2) - (oPicture.Height \ 2)
          oPicture.Select
       End With

    VBA: Sample VBA Code to Insert an Image Full Size and Centered

    제시해 드린 답변이 도움이 되었기를 바랍니다.
       
    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다.
    하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다

    2015년 6월 23일 화요일 오전 12:55
    중재자