Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11428 / 76734

←次へ　｜　前へ→


	【70841】Re:ユーザフォームの保存

UO3 - 12/1/5(木) 15:26 -


	引用なし

	パスワード

▼美貴さん：

>・このユーザフォームの背景色をユーザが指定できるように
>しています。
>・ピクチャを貼り付ける方法をとっていますが、
>つまり、ユーザフォームに任意のピクチャを貼り付けたら
>その状態を次回のユーザフォーム呼び出しまで保存しておきたいんです。

ちんさんも私も申し上げていますが、設定シートを準備して、フォームが閉じられる時に
そこにピクチャイメージを保存しておき、次回、フォームが立ち上がる時に復元すればよろしいかと。

ユーザーフォームの背景色をピクチャを貼り付ける方法でということは、
ユーザーフォームのPictureプロパティにセットしているということでしょうか？
どういった操作でそれを行っているかはわかりませんが、いかではいかがですか。

・まず設定用のシートを準備します。以下のコードではシート名を"設定"にしてあります。
　このシートは非表示にしておかれたらいいと思います。
・そのシートに「コントロールツールボックス」のImageコントロールを配置しておきます。
　（いわゆるActiveXコントロールです）
　以下のコードでは、名前を"Image1"にしています。
・で、当該ユーザーフォームモジュールに。

Private Sub UserForm_Initialize()
　　Me.Picture = Sheets("設定").OLEObjects("Image1").Object.Picture
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
　　Sheets("設定").OLEObjects("Image1").Object.Picture = Me.Picture
End Sub

13 hits

▼

【70836】ユーザフォームの保存 美貴 12/1/4(水) 23:43