ppt 매크로 초안 만들기

정보

ppt 매크로 초안 만들기

하얀성 2024. 1. 11. 10:12

1. VBA 코드 생성

(이미지 경로 수정은 알아서 각자 하자.) 이미지 파일 들어가서 경로확인 하면 됨.

Sub CreateMarineEcosystemPresentationWithDesign()
    Dim ppt As Object
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True

    ' 새 프레젠테이션 생성
    Dim pres As Object
    Set pres = ppt.Presentations.Add

    ' 슬라이드 배경 이미지의 경로 설정
    Dim imagePath As String
    imagePath = "C:\path\to\your\image.png" ' 이미지 파일의 경로로 수정하세요

    ' 첫 번째 슬라이드 추가 및 제목, 내용 설정
    Dim slide1 As Object
    Set slide1 = pres.Slides.Add(1, ppLayoutText)
    slide1.Shapes(1).TextFrame.TextRange.Text = "해양 생태계 소개"
    slide1.Shapes(2).TextFrame.TextRange.Text = "해양 생태계는 지구상에서 가장 크고 다양한 생명체의 서식지입니다. 이는 지구의 기후 조절, 탄소 순환 등 중요한 역할을 담당합니다."
    ' 배경 이미지 설정
    slide1.FollowMasterBackground = msoFalse
    slide1.Background.Fill.UserPicture (imagePath)
    
    ' 두 번째 슬라이드 추가 및 제목, 내용 설정
    Dim slide2 As Object
    Set slide2 = pres.Slides.Add(2, ppLayoutText)
    slide2.Shapes(1).TextFrame.TextRange.Text = "해양 생태계의 주요 구성 요소"
    slide2.Shapes(2).TextFrame.TextRange.Text = "해양 생태계에는 다양한 해양 동식물, 해조류, 그리고 미생물이 포함됩니다. 이들은 서로 상호작용하며 건강한 해양 환경을 유지합니다."
    ' 배경 이미지 설정
    slide2.FollowMasterBackground = msoFalse
    slide2.Background.Fill.UserPicture (imagePath)
    
    ' 세 번째 슬라이드 추가 및 제목, 내용 설정
    Dim slide3 As Object
    Set slide3 = pres.Slides.Add(3, ppLayoutText)
    slide3.Shapes(1).TextFrame.TextRange.Text = "해양 생태계 보호의 중요성"
    slide3.Shapes(2).TextFrame.TextRange.Text = "해양 오염, 기후 변화, 과도한 어업 등으로 해양 생태계는 위협받고 있습니다. 지속 가능한 해양 관리와 보호 조치가 필요합니다."
    ' 배경 이미지 설정
    slide3.FollowMasterBackground = msoFalse
    slide3.Background.Fill.UserPicture (imagePath)
    
    ' 디자인 요소 추가 - 원형 모양
    Dim shape As Object
    For Each slide In pres.Slides
        Set shape = slide.Shapes.AddShape(Type:=msoShapeOval, Left:=150, Top:=150, Width:=100, Height:=100)
        shape.Fill.Transparency = 0.5 ' 반투명 설정
        shape.Line.Weight = 2         ' 외곽선 두께 설정
        shape.Line.ForeColor.RGB = RGB(0, 176, 240) ' 외곽선 색상 설정
        shape.TextFrame.TextRange.Text = "해양 생태계 정보"
    Next slide

End Sub

2. 매크로로 이동