okayamadaiti

Option Explicit

' スライドにファイルオブジェクトを追加する
Sub addFile(ByRef sl As SlideRange, ByVal fileName As String)
    sl.Shapes.AddOLEObject(Left:=10, Top:=10, Width:=390, Height:=520, fileName:=fileName, Link:=msoFalse).Select
End Sub

' マスターとなるシート（最初のシート）を末尾にコピーする
Function copyMasterSheet() As SlideRange
    Dim newSlide As SlideRange

okayamadaiti

Public MustInherit Class BindableBase : Implements INotifyPropertyChanged

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Protected Function SetProperty(Of t)(ByRef storage As t, value As t, Optional propertyName As String = Nothing) As Boolean
        If Object.Equals(storage, value) Then Return False

        storage = value
        Me.OnPropertyChanged(propertyName)
        Return True