Excel VBA質問箱 IV

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

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


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

11420 / 76734

←次へ　｜　前へ→


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

Jaka - 12/1/6(金) 16:34 -


	引用なし

	パスワード

VBプロジェクトをいじればなんとかできるけど...。
因みにフォームがロードされている状態では書き換えは出来ません。
A1にフルパスが書いてあるとして。
尚、97の時は出来たりできなかったり、めちゃくちゃ不安定だった。
2003でやってみた時、書き換え後にブックを上書き保存して、次に開いて
フォームを立ち上げた時だったっけ？にマクロが無効やらどんたらこうたらいわれた。
ブックを手開き直しせばアラートはなくなったけど。
と、かなり不安定で危険かと。

フォームモジュール

Private Sub CommandButton2_Click()
Application.OnTime Now(), "書き換え"
Unload Me
End Sub

Private Sub CommandButton3_Click()
Application.OnTime Now(), "消す"
Unload Me
End Sub

標準モジュール

Sub 書き換え()
For Each myCtl In ThisWorkbook.VBProject.VBComponents.Item("UserForm1").Designer.Controls
　　If TypeName(myCtl) = "Image" Then
　　　 myCtl.Picture = LoadPicture(Range("A1").Value)
　　End If
Next
End Sub

Sub 消す()
For Each myCtl In ThisWorkbook.VBProject.VBComponents.Item("UserForm1").Designer.Controls
　　If TypeName(myCtl) = "Image" Then
　　　 myCtl.Picture = Nothing
　　End If
Next
End Sub

12 hits

▼

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