解像度を変更したJpegをクリップボードから貼り付けるには？ (ID:25820)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

実は解像度なんてものを変更せずとも、挿入した画像のスケールを変更するだけでよいと思う。
でもまあ、今までの流れに沿ってやってみました。

ちなみに私のBDS2006ProではOfficeコンポが無い（何故かな・・？）ので  ComObjでやります。

実は便乗？質問したいです。
私のBDS2006ProのDelphiプロジェクトではOfficeコンポが無いんですけど、どうすれば・・？

※Uses  に  comobj  を追加すること

procedure TForm1.Button1Click(Sender: TObject);
var
  E_Excel       : Variant;
  E_Application : Variant;
  E_WorkBook    : Variant;
  E_WorkSheet   : Variant;
begin
// Excel をオープン
  try
  E_Excel               := CreateOleObject('Excel.Application');
  E_Application         := E_Excel.Application;
  except
      on EOleSysError do begin
         //起動失敗
         ShowMessage('Excelが起動できません');
         E_Excel := Null;
         Exit;
      end;
  end;
  E_Application.Visible := True;
  E_Application.WorkBooks.Open( ExtractFilePath(Application.ExeName) +  'MyData.xls');
  E_WorkBook            := E_Application.ActiveWorkbook;
  E_WorkSheet           := E_Application.ActiveSheet;

// セルA1に画像を挿入
  E_Application.Range['A1:A1'].Select;
  E_WorkSheet.Pictures.Insert('c:\自宅72DPI.jpg').select;

//ここで画像を自由に伸縮（水平垂直半分）
  E_WorkSheet.Pictures[1].ShapeRange.ScaleWidth(0.5,0,0);
  E_WorkSheet.Pictures[1].ShapeRange.ScaleHeight(0.5,0,0);

E_Excel     := unAssigned;
  E_WorkBook  := Unassigned;
  E_WorkSheet := Unassigned;

end;

参考
https://www.petitmonte.com/bbs/answers?question_id=3651

←解決時は質問者本人がここをチェックしてください。

戻る