Excel & VBA---Brain Training


  • 01

엑셀의 범위를 읽어서 파워포인트스라이드만들기

아래를 실행하면 워크시트에 테이블이 몇개 만들어진다..

Sub createSlidesOfPPTByReadingXLRange()
Dim shtX As Worksheet
Dim iX As Integer
Dim iY As Integer
Dim iZ As Integer

Const SHT_NAME As String = "파워포인트자료"
On Error Resume Next
Application.DisplayAlerts = False
Worksheets(SHT_NAME).Delete
Set shtX = Worksheets.Add
shtX.Name = "파워포인트자료"
'주제,현상,원인,목표 1,목표 2
ActiveWindow.DisplayGridlines = False

With shtX
For iX = 0 To 9
    iY = iX * 7
    With .Range("B" & iY + 2)
        .Resize(5) = Application.Transpose(Array("주제", "현상", "원인", "목표 1", "목표 2"))
        .Offset(, 1).Formula = "=RC[-1]&""_" & iX + 1 & """"
        .Offset(, 1).AutoFill .Offset(, 1).Resize(5)
        .CurrentRegion.Borders.ColorIndex = 15
    End With
Next
End With


''위에서 만들어진 몇개의 테이블을 읽어서
''아래의 프로시져를 추가하여 파워포인트 스라이드를 만드는
''작성해 보시기를...
''createPowerPoint shtX

End Sub

아래의 그림과 같이 엑셀의 범위에 표현된 정보를
파워포인트 화일을 만들고, Slide를 테이블의 갯수만큼 만들고
테이블의 각 행의 정보를 읽어서 Shape개체를 넣고 Text를 넣는다



***[LOG-IN]***

  • 01