ASPからEXCELファイルを作成し、セルに画像を貼り付け、更に貼り付けられた画像の位置を調整したいのですが
Dim objExcel
fso = CreateObject("Scripting.FileSystemObject")
Set objExcel = Server.CreateObject("Excel.Application")
Set objExcelBook = objExcel.ActiveWorkbook
Set objExcelSheets = objExcelBook.Worksheets
If (fso.FileExists(Server.MapPath("【パス付画像のファイル名】"))) Then
objExcelSheet.Cells(3, 18).Select
objExcelSheet.Pictures.Insert(server.mappath("【パス付画像のファイル名】")).Select
End If
これで指定のセルに指定の画像を貼り付けることはできましたが、画像の位置を調整するコトができません。
EXCELのマクロからコードを調べたところ
Selection.ShapeRange.IncrementLeft 12.75
Selection.ShapeRange.IncrementTop 7.5
という記述が書いてあったのですが、そのままASPで使えそうにはありません。
ASPでEXCELに貼り付けた画像の位置を変更する記述を教えてください。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
これでどうでしょう。
#インデント部分は全角スペースですので、コピペする時は注意して下さい。
Dim fso, objExcel, objExcelBooks, objExcelSheets, objShapes
Set fso = CreateObject("Scripting.FileSystemObject")
Set objExcel = Server.CreateObject("Excel.Application")
Set objExcelBooks = objExcel.Workbooks
Call objExcelBooks.Add
Set objExcelSheets = objExcelBooks(1).Sheets
If (fso.FileExists(Server.MapPath("sample.jpg"))) Then
Call objExcelSheets(1).Activate
objExcelSheets(1).Cells(3, 18).Select
objExcelSheets(1).Pictures.Insert(Server.MapPath("sample.jpg"))
Set objShapes = objExcelSheets(1).Shapes
Call objShapes(1).IncrementLeft(12.75)
Call objShapes(1).IncrementTop(7.5)
Set objShapes = Nothing
End If
Call objExcelBooks(1).SaveAs(Server.MapPath("sample.xls"))
Call objExcelBooks.Close
Call objExcel.Quit
Set objExcelSheets = Nothing
Set objExcelBooks = Nothing
Set objExcel = Nothing
Set fso = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) EXCELマクロでandroidタブレットから取りんだJPEGファイルをうまくセルに貼り付けられない 2 2022/07/31 15:03
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
生成AI画像について
-
画像をループさせるうまい方法...
-
Pythonでgif画像が上手く作れない
-
ホームページバナーを(画像が...
-
UWSCを使って画像リンクをクリ...
-
Pythonのプログラム初心者の問題
-
こんなことてしますか??
-
スマホでサイトの画像を長押し→...
-
UWSCで指定箇所のみループ
-
決められた4つの座標をランダム...
-
colorbox.js 画像クリックで閉じる
-
uwsc画像認識のあいまい判定に...
-
uwcs のマクロで画像認識をして...
-
uwscの画像認識に失敗します。
-
【EXCEL VBA】ダブルクリックで...
-
画像の輝度値のプログラムにつ...
-
背景画像の繰り返しについて
-
複数枚画像の合成
-
パネルに画像
-
UWSCの色判定
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
こんなことてしますか??
-
【EXCEL VBA】ダブルクリックで...
-
Excelで画像URLを1つずつセル...
-
EXCEL VBA 複数のImageコントロ...
-
HTMLで画像をポップアップで表...
-
背景画像の繰り返しについて
-
Excel ユーザーフォームで表示...
-
gif 画像上の ボタンに リン...
-
VBA シート毎に画像挿入
-
jQuery . プログラミング 助け...
-
VBAのユーザーフォームのイメー...
-
jqueryスライダーを2段でスライ...
-
ホームページバナーを(画像が...
-
「using Windows」でエラーが出る
-
スマホでサイトの画像を長押し→...
-
【WPF】画像の切り替え
-
PowerPoint VBA で画像の鮮明度...
-
画像のピクセルデータの取得
-
UWSCの色判定
-
UWSCを使った画像認証マク...
おすすめ情報