No.3ベストアンサー
- 回答日時:
(#2コメントへのレスです)
とりあえず
http://www.google.co.jp/search?q=win32api%E3%81% …
http://wisdom.sakura.ne.jp/system/winapi/win32/w …
VB系から扱うなら
http://www.winapi-database.com/Beginner/page1.html
ですが、中途半端に手を出すと少々やっかいかも。当り前の事ですが、自己責任でお願いします。
それより
>本当はワークシート上で画像を表計算のデータと同じようにデータとして扱って作りたかったのです
なら
http://www.officetanaka.net/excel/function/tips/ …
http://www.geocities.jp/chiquilin_site/data/0505 …
...のあたりが参考になるかもしれませんね。
説明不足で申し訳ありませんでした。
このプログラムは初心者にとってはやはり難しいですね。
下の二つのサイトは大変参考になりました。
ありがとうございました。
No.4
- 回答日時:
#1です。
シートに画像を置いてUserFormで使う場合は、コントロールツールボックスのイメージを使うと割と楽です。
下記はUserFormのコマンドボタンを押すたびに画像を入れ替えるサンプルです。
試す場合は手順に従って新規ブックでどうぞ。
1)新規ブックを起動する。
2)表示-ツールバー-コントロールツールボックスを表示する。
3)コントロールツールボックスの「イメージ」を Sheet1 に複数配置する。
4)それぞれプロパティの Picture で画像を設定する。
5)ツール-マクロ-VisualBasicEditorを起動する。
6)UserFormを追加する。
7)UserForm1 に Image1 と CommandButton1 を配置する。
8)CommandButton1 をダブルクリックして、出て来たコードを全て消してから下記をコピペ。
'---------ここから--------------------------------------------------------
Dim cnt As Integer
Private Sub UserForm_Initialize()
cnt = 1
ImageChange
End Sub
Private Sub CommandButton1_Click()
ImageChange
End Sub
Private Sub ImageChange()
On Error Resume Next
With Worksheets(1)
If cnt > .OLEObjects.Count Then cnt = 1
Image1.Picture = .OLEObjects("Image" & cnt).Object.Picture
cnt = cnt + 1
End With
End Sub
'---------ここまで--------------------------------------------------------
丁寧に教えていただきありがとうございます。
若干使ったことがないコードもありますが参考にして勉強したいと思います。
ありがとうございました。
No.2
- 回答日時:
こんにちは。
>別の画像ファイルから読み出すことはあまりしたくありません。
との事なので、かなり難易度があがると思います。
ActiveSheet.Shapes(1).CopyPicture Appearance:=xlScreen, Format:=xlBitmap
などとしてClipboardに送った後、 QNo.2885043 を参考にWindowsAPIを使う事になるかと。
VBAだけで比較的簡単にやるなら
Const fn As String = "c:\tmpshp.jpg"
With ActiveSheet
If .Shapes.Count Then
With .Shapes(1)
.Copy
With .Parent.ChartObjects.Add(, , .Width + 5, .Height + 5)
With .Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export Filename:=fn
End With
.Delete
End With
End With
Me.Image1.Picture = LoadPicture(fn)
Kill fn
End If
End With
と、.Chart.Exportメソッドを使って一旦ファイル作成し、読み込み後 Kill で削除します。
『画像ファイルから読み出すこと』になるのでボツかもしれませんが....
この回答への補足
APIを使って全く作ったことがないので「QNo.2885043」 のプログラムが全く理解できませんでした。
初心者なのですいません。
そのようなことを書いているおすすめのサイトや本などはあるのでしょうか?
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルにサムネイル画像組み込み 2 2022/09/02 17:13
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- PowerPoint(パワーポイント) パワーポイント アニメーション効果で、テキストと同時に画像を表示させる方法を教えてください 2 2022/09/12 21:06
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) Excelグラフについて 1 2022/06/16 16:06
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) エクセルのプロパティーでセキュリティーが表示されない 1 2022/09/01 21:39
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【エクセル】シート内の表をUserFormに画像として表示させる方法
Excel(エクセル)
-
【エクセルのマクロ】クリップボードのbitmapをフォームに表示させたい
Visual Basic(VBA)
-
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
-
-
4
Excel ユーザーフォームで表示させた画像をユーザーフォーム上で保存したい
Visual Basic(VBA)
-
5
EXCEL VBA 複数のImageコントロールにクリップボードに保存されている画像を表示したい
Visual Basic(VBA)
-
6
VBAのユーザーフォームのイメージコントロールに読み込んだ画像を左に90°回転させたい
Visual Basic(VBA)
-
7
VBA ユーザーフォーム Image1 貼り付け画像の保存?
Visual Basic(VBA)
-
8
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
9
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
12
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
13
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
14
ユーザーフォームにワークシートを表示させる。
その他(Microsoft Office)
-
15
Imageコントロールにグラフを表示させるには
Visual Basic(VBA)
-
16
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
17
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
18
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
19
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
20
VBAで画像を表示する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
彼氏と毎日セックスするのは異...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
女性が喘いでいるときの男性の...
-
抱きしめたときに勃起したあそ...
-
もし週1しか恋人と会えなかった...
-
彼女が感じやすくて可愛い
-
男の人ってなんですぐ勃つの?...
-
クンニしたことある人ー ま○こ...
-
男性の方に質問です。 バックで...
-
SEXの相性が良すぎると男はダメ...
-
男性に質問です! 電話だけで勃...
-
兄妹や姉弟で、キスやエッチし...
-
キスすれば相手を好きでなくて...
-
彼氏のセックスが下手すぎで幻...
-
初体験って気持ちいいの? 男の...
-
彼女がフェラをしてくれません。
-
「無い胸」をなぜ触りたがるの?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
女性が喘いでいるときの男性の...
-
抱きしめたときに勃起したあそ...
-
彼氏と毎日セックスするのは異...
-
彼女が感じやすくて可愛い
-
もし週1しか恋人と会えなかった...
-
兄妹や姉弟で、キスやエッチし...
-
男の人ってなんですぐ勃つの?...
-
SEXの相性が良すぎると男はダメ...
-
彼氏のセックスが下手すぎで幻...
-
クンニしたことある人ー ま○こ...
-
初体験って気持ちいいの? 男の...
-
男性に質問です! 電話だけで勃...
-
彼女がフェラをしてくれません。
-
男性の方に質問です。 バックで...
-
彼氏が勃っていました。 高校生...
-
風俗を利用した事がある男性の...
おすすめ情報