LoadPictureのヘルプが見れない理由は？
- Excel（2007）のユーザーフォーム上でLoadPictureを使用する際にヘルプが表示されない理由を調査した。
- LoadPictureを選択してＦ１を押すと、ファイルが開けず、ヘルプが見れない問題が発生。
- LoadPictureに関するヘルプ情報が見つからず、他の関連情報が表示される。
- ベストアンサー
LoadPictureのヘルプが見れない理由は？
エクセル（2007）にユーザーフォームを設置し、その上にImage1を設置し、 Private Sub UserForm_Initialize() Me.Image1.Picture = LoadPicture("C:\test.jpg") End Sub としました。 正常に動くのですが、LoadPictureの意味を調べたくて、LoadPictureを選択してＦ１を押すと、 添付画像のようになり、ファイルが開けません。 「はい」を選んでも、ライブラリ\ドキュメントから選ぶように言われ、 何を選んでいいのかわかりません。 なぜ、LoadPictureのヘルプは見れないのでしょうか？ ヘルプの検索窓から、「LoadPicture」で検索をかけたところ ・MouseIcon プロパティ、MousePointer プロパティの使用例 ・CommandBarButton.Picture プロパティ ・MouseIcon プロパティ ・Picture プロパティ ・CommandBarButton.Mask プロパティ ・コントロールからビットマップを削除する ・PictureAlignment プロパティの使用例 ・コンボ ボックス (ComboBox) コントロール、AddItem メソッド、Picture プロパティ、PicturePosition プロパティの使用例 ・PictureSizeMode プロパティの使用例 ・Object プロパティの使用例 しかヒットしませんでした。
- FSKNNQCC
- お礼率100% (30/30)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
・Picture プロパティ の説明を見ればわかりやすいかと。 意味はそのまま「pictureをloadしなさい」でいいでしょう。 個人的には Me.Image1.LoadPicture("C:\test.jpg") とかMe.Image1="C:\test.jpg" のほうがわかりやすい気がします。 はるか昔のVBの時代から使われています。 VBAの検索で直接に出てこないのは、VBAというよりVBそのものの性格が強いからではないでしょうか。 vbscriptの場合ということですが、 http://msdn.microsoft.com/ja-jp/library/cc410263.aspx インターネットで検索してみると、 jp/library/cc410263.aspxhttp://support.microsoft.com/kb/162050/ja
関連するQ&A
- 同じコンボボックスを二つ以上作る方法
今同じ内容を表示するコンボボックスを二つ作ろうと思っているのですがつくり方がわかりません。 どのようにすれば一つのプログラムで二つのコンボボックスを作れるのでしょうか 例： 表示では はい いいえ プログラム： Private Sub UserForm_Initialize() ComboBox1.AddItem "はい" ComboBox1.AddItem "いいえ" End Sub Private Sub UserForm_Initialize() ComboBox2.AddItem "はい" ComboBox2.AddItem "いいえ" End Sub ↑のような作り方ではなく簡略化して Private Sub UserForm_Initialize() ComboBox●.AddItem "はい" ComboBox●.AddItem "いいえ" End Sub ●部を変更できれば一つのプログラムでコンボボックスを2つ操作できると思うのですがどのようにすればよろしいでしょうか？
- ベストアンサー
- Visual Basic
- コントロールの挿入と同時に画像を表示する方法
アクティブエックスコントロールのイメージコントロールの設置と同時に、 画像をそのコントロールに表示するｖｂａを作ってるのですが、 実行時エラー438が発生します。 Sub test() Dim objOLE As OLEObject Set objOLE = ActiveSheet.OLEObjects.Add("Forms.Image.1") With objOLE .Name = "Image" .Picture = LoadPicture("C:\1.gif") End With End Sub C:\1.gifのパスをブラウザで表示させることはできるので、ファイルは存在しているし、 パスは間違っていません。 .Picture = LoadPicture("C:\1.gif") をコメントアウトすれば正常にコントロールが挿入されます。 コントロールの挿入と同時に画像を表示する方法を教えてください。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelの既存シートへの写真自動貼付け
With ActiveSheet.OLEObjects("Image" & i) .Object.PictureSizeMode = 3 .Object.Picture = LoadPicture(myDir & myFile） ・・・のようなimage等を使わず、単純に貼りつけるだけのプログラムを教えて下さい。 具体的にはエクセルの挿入で貼りつけた図１～n の写真を得ることです。
- 締切済み
- Visual Basic
- ExcelVBAのフォーム上のimageコントロールにWeb上にある画
ExcelVBAのフォーム上のimageコントロールにWeb上にある画像を表示したいのですが、VBE上のプロパティで設定するときは表示されるのに、プログラム上で設定するとエラーが出ます。 Image1.Picture = LoadPicture(strURL)で設定しましたが無理でした。 どうやら、LoadPicture関数での設定では駄目なようです。 VBE上では出来るので、何かしら方法があると思うのですが、いかがでしょうか？ よろしくお願いいたします。
- 締切済み
- Visual Basic
- エクセル 複数のComboBoxの連携
エクセルでフォームを使い、社内各部署での案件の一覧の検索データベースを作成中です。 その際、ComboBoxを３つ使い、１「支店名」２「課名」３「チーム名」を選択するようにしたいのですが、支店により課名やチーム名が異なるため、１で選択した支店名と合致する課やチーム名が選べるようにしたく、以下のようなマクロを組みました。が、実行すると、支店名は表示されるものの、何故か選択できません。また、2つ目（課）の結果から３つ目（チーム名）も得る方法もいまいちよくわかりません。ご教示お願いいたします。 Option Explicit Private Sub ComboBox5_Change() Dim si As Integer With UserForm1 .ComboBox5.Text = "" si = .ComboBox5.ListIndex Select Case si Case 0 .ComboBox6.AddItem "A課" .ComboBox6.AddItem "B課" .ComboBox6.AddItem "C課" 以下必要分続く ’ComboBox６の結果から７を得るには？ End Select End With End Sub Private Sub UserForm_Initialize() ' ComboBox がアクティブの時の処理 With UserForm1 .ComboBox5.AddItem "A支店" .ComboBox5.AddItem "B支店" .ComboBox5.AddItem "C支店" .ComboBox6.AddItem "A課" .ComboBox6.AddItem "B課" .ComboBox6.AddItem "C課" .ComboBox7.AddItem "Aチーム" .ComboBox7.AddItem "Bチーム" .ComboBox7.AddItem "Cチーム" End With End Sub
- ベストアンサー
- オフィス系ソフト
- Comboboxのデータを入れ替えたいが一部残ってしまう
OS：WinXP-Home Office：Excel2000 を使用して、VBAの入力フォームを作成しています 3つのCombobox(オブジェクト名を「Data○」と命名：○には数字が入ります)を使い 1つ目のComboboxが選択されると 2・3個目のComboboxにデータが入るようにしたいのですが 以下のソースで不具合が出ましたのでお知恵を貸してください Private Sub UserForm_Initialize() Data1.AddItem "A" Data1.AddItem "あ" End Sub Private Sub Data1_Change() Dim i As Integer Dim j As Integer For j = 2 To 3 For i = 1 To Controls("Data" & j).ListCount Controls("Data" & j).RemoveItem 0 Next i Next j Select Case Data1.ListIndex Case 0 For j = 2 To 3 Controls("Data" & j).AddItem "A" Controls("Data" & j).AddItem "B" Controls("Data" & j).AddItem "C" Next j Case 1 For j = 2 To 3 Controls("Data" & j).AddItem "あ" Controls("Data" & j).AddItem "い" Controls("Data" & j).AddItem "う" Controls("Data" & j).AddItem "え" Controls("Data" & j).AddItem "お" Next j End Select End Sub これを実行した時に、 例えば2・3個目のComboboxを何も選択していない状態で 1つ目のComboboxを操作すると問題なくデータが開放されて 新たに入ります ですが、例えば 1個目："あ" 2個目："え" などの選択された状態で1個目を"A"に変えると 2個目のリストには "お" "A" "B" "C" となるケースがあります（毎回ではありません） Removeitemをする部分で調べてみたところ、うまくいかない時は 内側のiのループで Controls("Data" & j).ListCountの値は正常なのに 実際のループでは選択しているListindexで ループから抜けてしまっていました ソース上では問題ないので、どこを修正したらよいか分かりません よろしくお願いします
- ベストアンサー
- オフィス系ソフト
- LoadPicture 実行時エラー
エクセルのシートにアクティブエックスコントロールのイメージを1個設置しました。 名前は「Image1」となっており、数式バーには 「=EMBED("Forms.Image.1","")」とはいっています。 このイメージにｖｂａで画像を表示させたいのですが Sub test() Sheets("Sheet1").Image1.LoadPicture = "D:\My Documents\up\1.jpg" End Sub とすると 実行時エラー438 オブジェクトは、このプロパティまたはメソッドをサポートしていません。 と言う実行エラーになります。 画像は存在します。 どこが間違ってるのか教えてください。
- ベストアンサー
- オフィス系ソフト
- イメージコントロールに画像をセット
イメージコントロールに画像をセットしたいのですが、下記ではうまく動きません。 どうしたらよいでしょうか。 Private Sub Workbook_Open() ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _ DisplayAsIcon:=False, Left:=137.25, Top:=20.25, Width:=270, Height:= _ 154.5).Select Worksheets("Sheet1").Image1.Picture = LoadPicture("D:\My doc\My Pictures\１１.jpg") End Sub
- ベストアンサー
- その他（プログラミング・開発）
- エクセルVBAのコンボボックス
エクセル2002使用です。 生年月日とかを入力できるコンボボックスを作っているのですが、同じコンボボックスを５つ作ろうとしています。例えば和暦を入力するには Private Sub userform_initialize() With ComboBox(1) .AddItem "昭和" .AddItem "平成" End sub でうまくいくのですが、2個目から5つ目まで同じものを作成する場合、 With ComboBox(2) ・・・ With ComboBox(3) ・・・ と、コードを記述していかないと駄目なのでしょうか？ できれば With ComboBox(1: 5) とか、 変数を使って Private Sub userform_initialize() Dim i As Integer For i = 1 To 5 With ComboBox(i) .AddItem "昭和" .AddItem "平成" End With Next End sub といった具合にまとめたいのですが、コンパイルエラーとなってしまいます。 初歩的な質問で申し訳ないのですが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAで、日付の後に曜日を追加する方法について
ＥＸＣＥＬ ＶＢＡの日付の機能のことで教えていただきたいことがあります。 Ａ列 1行：2008/02/01 2行：2008/02/03 3行：2008/02/04 ・ ・ コントロールツールボックスでコンボボックスをシートに挿入 Private Sub Workbook_Open() With ComboBox1 .AddItem Range("A1") .AddItem Range("A2") .AddItem Range("A3") ・ ・ End With End Sub コンボボックスには「2008/02/01」等と表示されたリストが表示されると思いますが、 選択した後の値を「2008/02/01(月)」というように、 日付の後に曜日を追加して表示させるにはどのような処理をしたらよろしいでしょうか。 Private Sub ComboBox2_Change() ComboBox2 = ？ End Sub というようなやり方かとは思うのですが、具体的なコードがさっぱり思い浮かびません。 どうぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
Picture プロパティを見ればいいのですか。 Me.Image1="C:\test.jpg"の方がわかりやすいです。 ＶＢの名残なのですね。