No.1ベストアンサー
- 回答日時:
こんにちは。
ファイル名さえ判れば、LoadPicture()関数が使えます。
どうやってファイル名を取得するかが問題ですが、
とりあえず、一例として、
ActiveSheetにクリップアートを挿入して、
直後にUserFormを表示すると
UserFormにクリップアートを表示する
ように書いてみます。
' ' ===== ユーザーフォームモジュール =====
Private Sub UserForm_Activate()
Dim sPictureFile As String
sPictureFile = GetClipArtFileNameFromShapes(ActiveSheet)
If sPictureFile <> "" Then
Me.Picture = LoadPicture(sPictureFile)
Repaint
End If
End Sub
' ' ===== 標準モジュール =====
Function GetClipArtFileNameFromShapes(ByVal Sh As Worksheet, Optional ByVal ShapeIndex As Long) As String
With Sh
If ShapeIndex = 0 Then ShapeIndex = .Shapes.Count
On Error Resume Next
GetClipArtFileNameFromShapes = .Shapes(ShapeIndex).DrawingObject.ShapeRange.AlternativeText
End With
End Function
ファイル名さえ判ればいいので、一旦シート上にクリップアートを読み込んでおいて、
関数
Function GetClipArtFileNameFromShapes(ByVal Sh As Worksheet, Optional ByVal ShapeIndex As Long)
(引数はワークシート、シェイプのインデックス(省略可)です。)
の戻り値さえ取れれば、それを定数(または変数)化して使うのでもいいのかも知れません。
上の例では、直にUserFormのPictureを設定していますが、無論、各種コントロールでも
同様に.Pictureプロパティを設定するだけです。
応用はお任せします。
この回答へのお礼
お礼日時:2013/11/14 18:06
ご回答ありがとうございます。
とても難しかったのですが、何とかPictureプロパティを使ってクリップアートを挿入することが出来ました。今後、文字だけでなく画像も使うことで、応用の幅も広がっていきそうです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Vba UserFormを前面に出す方法を教えてください 1 2023/08/17 11:08
- Excel(エクセル) Excel VBA 指定フォルダに格納されている全エクセルファイルに指定シートを挿入する方法について 1 2022/08/22 11:53
- Visual Basic(VBA) VBA シート上にドロップダウンリストを作り、予め指定値をセットしたいのですが 1 2023/03/25 15:15
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) Userformを閉じて開く時、一瞬閉じて開くのがわからないようにする方法はありませんか。 閉じて開 5 2023/06/26 13:09
- Visual Basic(VBA) VBA Userform転記のみ編集可 1 2023/06/29 11:03
- ホームページ作成・プログラミング 秀丸に関して教えて下さい。 1 2022/06/30 10:00
- Visual Basic(VBA) vba Sleep関数について教えてください 1 2023/01/18 10:18
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
恋人などと挿入したまま入眠し...
-
挿入中の潮について、ものすご...
-
入れてる最中に、『めっちゃ濡...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
処女卒業して3ヶ月の大学生です...
-
女性の方へ、イクことと女性の...
-
もう少しでイケそうな時、どん...
-
女性の方 イクようになったき...
-
挿入時、キツっって言いながら...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
手コキとマンコに挿入するのと...
-
嫁がバイブでしか逝きません。
-
いきそうでいけない・・・
-
すぐ乾いて挿入できません
-
挿入のときに力を抜く方法はあ...
-
AVって、本当に挿入してるんで...
-
(女性へ質問)ピストン運動の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
太ってる女とのSEX
-
恋人などと挿入したまま入眠し...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
処女卒業して3ヶ月の大学生です...
-
入れてる最中に、『めっちゃ濡...
-
もう少しでイケそうな時、どん...
-
女性の方へ、イクことと女性の...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
女性の方 イクようになったき...
-
手コキとマンコに挿入するのと...
-
嫁がバイブでしか逝きません。
-
いきそうでいけない・・・
-
挿入中の潮について、ものすご...
-
すぐ乾いて挿入できません
-
挿入のときに力を抜く方法はあ...
-
挿入しやすい体位
-
女です。高確率で前戯でイッて...
おすすめ情報