This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |