Excel & VBA---Brain Training
엑셀의 범위를 읽어서 파워포인트스라이드만들기
아래를 실행하면
워크시트에 테이블이 몇개 만들어진다..
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]***