掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
VBからExcelに画像させるには？ (ID:100401)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> サイト名を出していいものかどうか分からなかったので…。 # サイト名も出さずに無断転載する方が、問題あるような気も。(^^; で、そのサイトには、そのコードをどこに書くべきか、とか、 どのバージョンの Excel だと可能/不可能といった追加情報がありませんでしたか? 同じページ内に記載されているか、それとも、別ページに記載されているのか あるいは、追加情報が無いのかは、URL が不明なのでわかりませんが…。 > ExcelからCallしてみましたが、同じプロシージャではないと呼べませんでした。 ? 「同じプロシージャではない」というのは、どういう状況の事でしょうか? とりあえずこちらで、その Image1 貼ったブック("C:\book1.xls")の標準モジュールに Public Sub SetPicture(ByVal Target As MSForms.Image, ByVal PicFile As String) Set Target.Picture = LoadPicture(PicFile) End Sub というコードを書いて、VB6 側から oExcelApp.Run "SetPicture", Sht.OLEObjects("Image1").object, "C:\image.jpg" というコードを書いたら、画像が表示されましたよ。 Dim oExcelApp As Object Set oExcelApp = CreateObject("Excel.application") oExcelApp.Visible = True Dim oBook As Object Set oBook = oExcelApp.workbooks.open("C:\book1.xls") Dim Sht As Object Set Sht = oBook.Sheets(1) oExcelApp.Run "SetPicture", Sht.OLEObjects("Image1").object, "C:\image_01.jpg"
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.