VBA untuk menambahkan citra hasil satelit ke Ms PowerPoint

addPics.vb

Sub mainmain()
    Dim objPresentation As Presentation
    Dim objSlide As Slide
    Dim objImageBox As Shape
     
    Set objPresentation = ActivePresentation
    Set objSlide = objPresentation.Slides.Item(42)
     
    Set objImageBox = objSlide.Shapes.AddPicture( _
        "D:\RS\NASA\Himawari\Indonesia\2019-12-02\0220.jpg", _
        msoCTrue, msoCTrue, _
        0, 0, 719.9219, 540)
    
End Sub

Sub cariWidthHeight()
    Dim objPresentation As Presentation
    Dim objSlide As Slide
    Dim objImageBox As Shape
     
    Set objPresentation = ActivePresentation
    Set objSlide = objPresentation.Slides.Item(1)
    Debug.Print "Width: " & objSlide.Shapes.Item(1).Width
    Debug.Print "Height: " & objSlide.Shapes.Item(1).Height
    

End Sub

Sub lagi(a As Integer, b As String, c As String)
    Dim objPresentation As Presentation
    Dim objSlide As Slide
    Dim objImage As Shape
    Dim objText As Shape
    
    

    Set objPresentation = ActivePresentation
    Set objSlide = objPresentation.Slides.Item(a)
    Set objImage = objSlide.Shapes.AddPicture("D:\RS\NASA\Himawari\Indonesia\2019-12-02\" & b & c & ".jpg", msoCTrue, msoCTrue, 0, 0, 719.9219, 540)
    Set objText = objSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 200, 50)
    objText.TextFrame.TextRange.Text = b & ":" & c
    
End Sub
                  
Sub test()
  'lagi 53, "04", "20"
  'lagi 54, "04", "40"
  'lagi 55, "04", "50"
  'lagi 56, "05", "00"
  'lagi 75, "08", "10"
        
  'lagi 74, "08", "00"
  'lagi 75, "08", "10"
  'lagi 76, "08", "20"
  'lagi 77, "08", "30"
  'lagi 78, "08", "40"
  'lagi 79, "08", "50"
  'lagi 80, "09", "00"
  'lagi 81, "09", "10"
  'lagi 82, "09", "20"
  'lagi 83, "09", "30"
  'lagi 84, "09", "40"
  'lagi 85, "09", "50"
  'lagi 86, "10", "00"
  'lagi 87, "10", "10"
  'lagi 88, "10", "20"
  'lagi 89, "10", "30"
  'lagi 90, "10", "40"
  'lagi 91, "10", "50"
  'lagi 98, "12", "00"


End Sub