質問: 前回の続きとなります。 透かし文字はテキストボックスのままでも可能でしょうか?
回答: <1> 透かしは、名前さえ WMark にすればテキストボックスでもOKです。 <2> 表示オン・オフにする場合は DelWMark を削除し、次と差し換えてくださいか。Sub CtrlWMark() With ActivePresentation.SlideMaster.Shapes("WMark") If .Visible = False Then .Visible = True Else .Visible = False End With End Sub <3> ChoosePic のエラーとは、どのような内容でしょうか。 こちらではエラーは出ませんが、全体の先頭に Dim chk As Long は記述されているでしょうか。 <4> 提出先用の3つの画像につきましては、表示する画像以外を非表示にしていますので、サイズや縦横比が異なっても問題ありません。