• ベストアンサー

Pictureboxについて

エクセル（VBA）でPictureboxのコントロールが私のツールボックスにありません。ＶＢの方には出てきます。エクセルのツールボックスの方にも出すか、または使えるようにしたいのですが、どうすれば良いか教えてください。Ｐｓｅｔ，Ｌｉｎｅが使いたいのですが。Ｆｏｒｍでは都合が良くなくて。Ｅxcel２０００とＶＢ．ｖ６です。 よろしくお願いします。　　　　　　

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

こんにちは。 私はこのようなことをやったことがありませんが、私の持っている本(かんたんプログラミングエクセルＶＢＡ)にPictureプロパティーを使って、画像を取り込む方法が載っていて読んだ記憶があります。ヘルプで調べてみてはいかがでしょうか。 もし、ご存知の節はご無礼をお許し下さい。 この質問とは全く関係ないのですが、以前あなた様からLookAt:=xlPArtで不具合が起こる具体例を教えてほしいという要望が出されましたのでその回答をさせていただきます。 以前私がFindメソッドを使って検索をかけた結果、思った値が取得できないことがありました。サポートセンターに問い合わせたところ、ＶＢＡのバグでたまに誤作動をすることがあるので、Findメソッドを使う時には必ずLookAt:=xlWholeを指定するようにという指導を頂きました。ですからあの様な記述をさせてもらったのです。ご無礼がありましたら、ここで再度お詫び申し上げます。 今後ともよろしくお願いいたします。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • 現在、VB2005でDrawLineにてPictureBox上にライン

    現在、VB2005でDrawLineにてPictureBox上にラインを描いています。 しかし、VB6とは違いラインを描いているFormが隠れるとラインが消えてしまいます。 PictureBoxのPaintイベントで描くようにすれば良いのでしょうが、ラインを描くのに 数万ループして演算しながら座標を決めてるため、Formが隠れて現れるたびに座標演算処理が働き 重くなり実用的ではありません。 Formが隠れてもラインが消えないように出来れば良いのですが、方法をご存知の方がいらっしゃいましたら 宜しくお願いいたします。

  • Excel-VBAでタイマー処理

    お世話になります。 Excel-VBAでユーザフォームを操作したいのですが、ＶＢの場合ツールボックスにタイマーコントロールがありますが、Excel-VBAの場合ツールボックスにタイマーコントロールがありません。 タイマー処理はどうしたら良いのでしょうか？

  • excel vbaでユーザーフォームに線を書く

    excel vbaでユーザーフォームに線を書きたいのですが （プログラムではなくツールボックスにコントロールを追加し） ｖｂのｌｉｎｅのようなコントロールはあるでしょうか。 環境　Windows XP, Office2003

  • PictureBoxのDrawWidthの設定

    VB(6.0)の PictureBox の Paint メソッド内で，Line で描画を行っているのですが， PictureBox.DrawWidthの値に大きな値(15pixel程度)を設定すると， なぜか PictureBox 全体が塗りつぶされて しまいます． （PictureBox.ScaleMode = vbPixels かつ1024×768Pixelの全画面表示にしております） このような現象を経験された方はいらっしゃいませんでしょうか？ 宜しくお願いいたします．

  • ExcelのグラフをPictureBoxに貼付

    下記のサイトの http://hanatyan.sakura.ne.jp/dotnet/index.html ●VB.NETからExcel にデータを送りグラフを表示する ●Excelのグラフをクリップボード経由でPictureBoxに貼付 を組み合わせたものを作りたいのですが、ソースコードが実行できなくて困っています。 エクセルでグラフを作成までは、エラーもなく、実行できたのですが、貼り付けができません。どうも、 If iData.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then PictureBox1.Image = CType(iData.GetData(DataFormats.Bitmap), Image) Else End If でElseの方にいってしまっているみたいです。 ですが、確認したところ、クリップボードにはBitmapの画像はあるみたいです。 （プログラムが終了した後、ペイントに貼り付けてみました。） 環境は、VB2005、Excel2007です。 よろしくお願いします。 もし、動作確認できましたら、どこかにサンプルプログラムをUPしてもらえると非常に助かるのですが

  • VB 6.0 PictureBox のプロパティに存在したScaleHeight ScaleWidthは.netには存在しない？

    VB .netにてPictureBox コントロールを使用して ライン描画を行なおうとしています。 VB 6.0の時には存在していたScaleHeigth,ScaleWidthのプロパティは.netには存在していないみたいですが何か変わるものは用意されていないでしょうか？ 実際の表示幅(Height,Width)ではなくScaleHeigth,ScaleWidthを使用して細かいライン描画をしたいのですが、どなたか方法をご存知の方がいましたらよろしくお願いいたします。

  • VB .net Panelコントロールにライン描画は可能ですか？

    VB 6.0 から.netへとアップグレードした際に、 PictureBox が Panelへと変換されてしまいました。 .netにもPictureBoxは存在するのになぜPanelにおきかわってしまったのかは不明ですが（VB6.0ではPictureBox内にLineコントロールもありグループ化みたいなことをしていた模様なのでそのためか？） 現在、PictureBoxにライン描画できることは確認したのですが、Panelコントロールにはライン描画はできないのでしょうか？ご存知の方がいましたら回答をお願いします。

  • VB.netでのライン描画方法がわかりません

    VB6.0にて作成していたソースプログラムを.netアップグレードウィザードによりアップグレードして.netソースを作成しました。VB6.0ではPictureBox.Lineを利用してラインの描画をできていたようなのですが、.netにはLineメソッドが用意されていないらしくライン描画をどう行なえば良いかがわかりません。またVB6.0ではPictureBoxだったコントロールがアップグレードウィザードにて変換された後はPanelコントロールになってしまっています。 .netにもPictureBoxはあるのになぜPanelコントロールに置き換わってしまうのでしょうか？ いま現在やりたいのは、あるファイルより取得したデータを用いて、VB.netのコントロール(Panel? PictureBox?)にライン描画をさせてやりたいのです。 あまり難しいことは出来ませんので簡単に描画する方法をわかる方がいましたら教えて頂けませんか？ よろしくお願いします。

  • VB205のPicturebox上でのMousewheelイベント

    VB2005で、Form1にPanel1をはりつけ、その中にPicturebox1をはりつけ、Pictureboxの範囲の中で、マウスをホィールしても、イベントが発生しません。ためしに、Picturebox1とPanel1について書いてみましたが、だめでした！(Form1では、発生します) 何がダメなんでしょうか？どなたか詳しい方がいらっしゃいましたら教えて頂けないでしょうか？宜しくお願い致します。 Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel MsgBox("TEST_Picturebox") End Sub Private Sub Panel1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseWheel MsgBox("TESUT_Panel") End Sub

  • VB　PictureBoxの描画範囲

    VisualStudio2010のVBにて、ピクチャーボックスの範囲をプログラム中で大きくして描画をさせたいのですが、ピクチャーボックスのサイズを大きくしても、大きくした範囲には描画がされません。 やり方は↓の方法です。 まず、formにボタンとピクチャーボックスを300×200で配置して、 http://homepage1.nifty.com/rucio/main/dotnet/Samples/dnSampleKeepImage.htm ↑のページで書かれてた方法でグラフィックを再描画させています。 Public Class Form1 Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = AutoGraphics(PictureBox1) PictureBox1.Width = 400 g.FillRectangle(Brushes.Black, 100, 100, 10, 10) '1つ目の図形 g.FillRectangle(Brushes.Black, 350, 100, 10, 10) '2つ目の図形 g.Dispose() End Sub Public Function AutoGraphics(ByVal picSource As PictureBox) As Graphics If picSource.Image Is Nothing Then picSource.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height) End If Return Graphics.FromImage(picSource.Image) End Function End Class これを実行すると、1つ目の図形は描画されていますが、拡大した範囲にある2つ目の図形は描画されていません。 ピクチャーボックスの範囲を大きくした所にも描画をさせたいと思っています。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する