Rebecca Birch에는 모든 보고서를 PowerPoint로 제공해야하는 일부 고객이 있습니다. 이러한 보고서의 모든 소스 데이터는 Excel에서만 사용할 수 있기 때문에 엄청난 작업이 필요합니다. Rebecca는 워크 시트 데이터의 “스냅 샷”을 가져 와서 PowerPoint 슬라이드에 배치하는 방식으로 하나에서 다른 것으로 변환하는 부담을 좀 더 쉽게 만들 수있는 아이디어를 찾고있었습니다.

필요한 스냅 샷이 그다지 많지 않은 경우 한 가지 해결책은 단순히 수동으로 붙여 넣는 것입니다. Excel에서 정보를 표시 한 다음 PrintScreen 키를 눌러 Office 클립 보드에 그림을 배치 할 수 있습니다. PowerPoint로 전환하고 편집 메뉴에서 Office 클립 보드를 선택합니다. 그런 다음 클립 보드의 내용을보고 현재 슬라이드에 붙여 넣을 항목을 선택할 수 있습니다.

덜 반복적 인 접근 방식은 Excel 통합 문서의 데이터를 슬라이드에 연결하는 것입니다. 편집 | 선택하여 붙여 넣기 (PowerPoint에서)는 연결된 데이터를 붙여 넣습니다. 이러한 방식으로 통합 문서의 데이터가 업데이트 될 때마다 연결된 슬라이드도 업데이트됩니다. 올바르게 완료되면이 솔루션은 한 번만 붙여 넣기 만하면 될 가능성이 있습니다.

붙여 넣기를 수행하기 위해 매크로를 개발하는 방법을 선호하는 경우 Jon Peltier가 웹 사이트에서 개발 한 것을 확인하십시오.

http://peltiertech.com/Excel/XL_PPT.html#rangeppt

선택한 셀의 스냅 샷을 만든 다음 PowerPoint의 활성 슬라이드에 붙여 넣습니다. (분명히 매크로를 사용하려면 Excel과 PowerPoint가 모두 열려 있어야합니다.)

또한 매크로를 비교적 쉽게 수정할 수 있으므로 Excel에서 일련의 명명 된 범위를 단계별로 실행하고 해당 범위의 내용을 PowerPoint의 지정된 슬라이드에 붙여 넣을 수 있습니다.

또 다른 매크로 기반 솔루션은 현재 Excel 통합 문서에있는 각 워크 시트의 스냅 샷을 포함 할 새 PowerPoint 프레젠테이션 (Excel 내에서)을 만드는 것입니다. 다음 매크로는이 작업을 수행합니다.

Sub CopyWksToPPT()

Dim pptApp As Object     Dim sTemplatePPt As String     Dim wks As Worksheet     Dim sTargetTop As Single     Dim sTargetLeft As Single     Dim sTargetWidth As Single     Dim sTargetHeight As Single     Dim sScaleHeight As Single     Dim sScaleWidth As Single     Dim iIndex As Integer

'Change these as desired     sTargetTop = 30     sTargetLeft = 60     sTargetWidth = 600     sTargetHeight = 450     sTemplatePPt = "C:\Program Files\Microsoft Office\Templates\Blank Presentation.pot"



iIndex = 1     Set pptApp = CreateObject("Powerpoint.Application")

With pptApp         .Visible = True         .Presentations.Open _             FileName:=sTemplatePPt, Untitled:=msoTrue         For Each wks In Worksheets             wks.Select             .ActiveWindow.View.GotoSlide _                 Index:=.ActivePresentation.Slides.Add _                 (Index:=iIndex, Layout:=12).SlideIndex             iIndex = iIndex + 1             wks.UsedRange.Copy             .ActiveWindow.View.Paste             With .ActiveWindow.Selection.ShapeRange                 sScaleHeight = sTargetHeight / .Height                 sScaleWidth = sTargetWidth / .Width                 If sScaleHeight < sScaleWidth Then                     sScaleWidth = sScaleHeight                 Else                     sScaleHeight = sScaleWidth                 End If                 .ScaleHeight sScaleHeight, 0, 2                 .ScaleWidth sScaleWidth, 0, 2                 .Top = sTargetTop + (sTargetHeight - .Height) / 2                 .Left = sTargetLeft + (sTargetWidth - .Width) / 2             End With         Next         .Visible = True     End With End Sub

“원하는대로 변경”이라고 표시된 영역을 확인합니다. 여기에는 각 PowerPoint 슬라이드 내에서 붙여 넣은 스냅 샷의 위치와 높이 및 너비에 대한 사양이 포함됩니다. 또한 sTemplatePPt 변수에는 새 PowerPoint 프레젠테이션에 사용해야하는 템플릿의 전체 경로가 포함됩니다.

_ 참고 : _

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

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

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

이 팁 (2378)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.