線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1938
推到 Plurk!
推到 Facebook!

在Word中如何重新選取圖片!!

尚未結案
adrain
一般會員


發表:39
回覆:28
積分:13
註冊:2004-07-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-01-21 21:52:22 IP:61.59.xxx.xxx 未訂閱
wapTXT.Selection.InlineShapes.AddPicture(ovVar[1], ovVar[2], ovVar[3], ovVar[4]).Select; wapTXT.Selection.InlineShapes.Item(1).ConvertToShape; wapTXT.Selection.ShapeRange.ScaleWidth(0.3, msoFalse, msoScaleFromTopLeft); wapTXT.Selection.ShapeRange.ScaleHeight(0.3, msoFalse, msoScaleFromTopLeft); Selection.Collapse(EmptyParam); Selection.TypeText(wsExamNum); 以上是我在Word中新增一張圖片,經過轉成可移動狀態及縮小之後再填入一串文字. 我的問題是經過這個過程之後如何重新再選取剛剛所插入的那張圖片呢? 煩請各位賜教!!.
chris_shieh
高階會員


發表:46
回覆:308
積分:240
註冊:2004-04-26

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-01-22 23:42:03 IP:218.167.xxx.xxx 未訂閱
var
  inshape:InlineShape;
  shp:Shape;
begin
  wapTXT.Selection.InlineShapes.AddPicture(ovVar[1], ovVar[2], ovVar[3], ovVar[4]).Select;
  shp:=wapTXT.Selection.InlineShapes.Item(1).ConvertToShape;
  wapTXT.Selection.ShapeRange.ScaleWidth(0.3, msoFalse, msoScaleFromTopLeft);
  wapTXT.Selection.ShapeRange.ScaleHeight(0.3, msoFalse, msoScaleFromTopLeft);
  wapTXT.Selection.Collapse(EmptyParam);
  wapTXT.Selection.TypeText(wsExamNum);
  shp.Select(EmptyParam);
@瞭解越多.懂得越少@
adrain
一般會員


發表:39
回覆:28
積分:13
註冊:2004-07-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-01-23 11:15:54 IP:61.59.xxx.xxx 未訂閱
謝謝
系統時間:2024-07-06 12:13:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!