掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Excelに貼り付けた画像クリックでペイントを起動するには？ (ID:19887)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Excelに画像を貼り付けてサムネイル表示のような感じにしたいと 思っているのですが、貼り付けた画像をクリックするとペイント を起動して編集できるようにすることは可能でしょうか？ ペイントで編集した状態をサムネイル上にも反映させます。 ペイントを起動するのは、実寸表示を行うことを兼ねています。 最悪、編集できない場合、実寸表示さえできればいいのですが。 以下のソースは、A1のセルを左上として画像を実際の半分の大きさ で貼り付ける例ですが、ここからどうすればよいのかわかりません。 Excel := CreateOleObject('Excel.Application'); Excel.Visible := False; WorkBook := Excel.WorkBooks.Open(FileName := 'Book1.xls', readOnly := True); WorkBook.WorkSheets[1].Activate; WorkBook.ActiveSheet.Range['A1'].Activate; WorkBook.ActiveSheet.Pictures.Insert('image1.jpg').Select; WorkBook.ActiveSheet.Pictures[1].ShapeRange.ScaleWidth(0.5,0,0); WorkBook.ActiveSheet.Pictures[1].ShapeRange.ScaleHeight(0.5,0,0); WorkBook.SaveAs(Filename := 'Book2.xls'); WorkBook.Close; WorkBook := unAssigned; Excel.Quit;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.