delphi word的图片大小 delphi word 图片大小

发布日期：2020-08-25

在delphi中怎样可以快速的实现将图片粘贴到word

自己录个宏，稍加改动就可以了。

Sub 图片旋转270度对齐页面（）"图片排版270度 If Selection.InlineShapes.Count = 0 Then If Selection.ShapeRange.Count 0 Then Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Rotation = 270# Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# "Selection.ShapeRange.Left = 90.1 "Selection.ShapeRange.Top = 88.15 "Selection.ShapeRange.Left = -120.45 "Selection.ShapeRange.Top = 109.1 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionPage Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionPage Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.ZOrder 4 Selection.ShapeRange.ZOrder msoSendBackward End If End If If Selection ＂＂ Then If Selection.InlineShapes.Count 0 Then "Selection.InlineShapes(1).Fill.Visible = msoFalse "Selection.InlineShapes(1).Fill.Solid "Selection.InlineShapes(1).Fill.Transparency = 0# "Selection.InlineShapes(1).Line.Weight = 0.75 "Selection.InlineShapes(1).Line.Transparency = 0# "Selection.InlineShapes(1).Line.Visible = msoFalse "Selection.InlineShapes(1).LockAspectRatio = msoFalse "Selection.InlineShapes(1).Width = CentimetersToPoints(28.9) "Selection.InlineShapes(1).Height = CentimetersToPoints(20.2) "Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 "Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 "Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic "Selection.InlineShapes(1).PictureFormat.CropLeft = 0# "Selection.InlineShapes(1).PictureFormat.CropRight = 0# "Selection.InlineShapes(1).PictureFormat.CropTop = 0# "Selection.InlineShapes(1).PictureFormat.CropBottom = 0# Selection.InlineShapes(1).ConvertToShape "属性转换（InlineShapes(1)转换为ShapeRange) Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) Selection.ShapeRange.Rotation = 270# "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizo...

批量处理众多WORD文档中的图片的问题我有近千个WORD文档,全

VB:1 VB编译的.EXE文件很小，但需要1M左右的DLL。

2 开发工具特性上面，v无法编译原生目标文件3 v无法对低层操作4 v只能使用ms的数据库驱动5 v无类库（不是指ocx，是指的famewok）6 v无法使用C的oj文件7 语言特性上，v6以下版本缺少面向对象支持8 v无指针（正宗的指针）9 v的独特就在于简单，不是在于功能，所以要比较v要和其它开发工具比较应该放在易用性上，一定能赢。

1 VB最大的弱点 ，不支持面向对象。

这点关乎很大。

2 VB其实操作不叫简单，见弱，而DELPHI 那叫简单强大。

3 VB以停止更新 别说 VB。

NET 那和 VB 不一个东西。

4 三方控件。

5 开源。

6 运行速度。

7 稳定性。

8 依赖性，VB 写的东西换别的系统还要重新包装发布，看看DELPHI 那叫绿色。

9 编译速度，VB根本不叫编译，类似高级脚本。

DELPHI编译的速度世界一流。

10 类库，DELPHI的类库 很多很强大 可继承。

VCL 真是个非常好的构架。

11VB函数定义都不需要！万一程序出错，万一是类型不同导致的错误！查都查不出来，这个可以说是一个致命的问题！ Delphi的程序通常只需要一个.EXE文件，而且它使用的VCL控件可以编译到.EXE中，比.OCX好。

如果你编写数据库程序，和VB就差不多了，因为Delphi需要BDE支持。

2 开发工具特性上面，delphi可以编译原生目标程序3 delphi可以对低层操作4 delphi可以使用ms的数据库驱动或者其它的5 delphi有vcl类库，学习vcl可是受益匪浅的6 delphi可以使用C的oj文件。

（估计很少人这样用，但不要说这是不可能）7 语言特性上，delphi有面向对象支持8 delphi有正宗的指针1.BDE尺寸太大， 太笨重， 一个几百K的小程序也要3-4M，虽然功能不错， 但人家DAO也没这么大；2.关于界面：到现在， 也没有像VB那样， 在一个过程名字上按shift+f2， 就可以直接跳到过程的实现部分， 在delphi里， 你只有按住ctl， 在名字上点击， 运气好的话， 会直接跳到实现部分， 运气不好会跳到声明部分， 那么你只有再按住ctl+shift，按上下光标键， 在声明部分和实现部分切换.另外， 没有VB中的大小写自动变换， 自动格式化等， 3 ＂代码精灵＂---不知道你们叫它什么，就是按住.后， 出来的那个列表框，可以选取构成的语句元素， 它的弹出速度总是比不上VB， 特别是第一次启动时， 总要等上7-8秒钟才出来， 真让人急死，即使把它的弹出速度调到最快也不行， 不用它还真不方便，毕竟记性不是很好.--可是VB里面是一按.号就会弹出来.4.对中文用户的支持：到现在也没有开发过一版中文的delphi综：Basic简单是因为微软希望 VB 及 VBA维持在简单到任何想依靠电脑O？做自动化程序的用6都可以轻易地上手， 因此虽然功能不断上升，语言本身维持着Basic的所有特性。

不过缺乏物向导向的支援及执行速度的缓慢， 确实是致命伤， 因此我建议所有的初学者， 若能有力能Y 接受学习其它的语言如C++Pascal，转移阵地为上策。

Pascal， 其实应该说是 Oject Pascal， 为 Boland Delphi 所才用的语言。

Pascal的严谨明确是自 Niklaus With 发明它以来一直遵行的宗旨， 而之所以可以？利演化为完全的物件导向程式？？言 Oject Pascal 是由于 Inpise 公司 （原名 Boland）对 Pascal ？？言的全盘掌握， 就像 FeeBSD 的 coeteam 全盘控制所有 FeeBSD套件的更新撰写一般， Pascal 控制权控制在 Inpise 一小措人手中，虽然失去开放性，但保有？有的坚持及清新， 也因此我认为它的物向导向支援恰得其所， 该支援的全都支援了但也l？有更多。

它与 C++ 的优劣是l？有答案， 见仁见智的， 正如同大礼服及小洋？？ 好不好看， 适不适合， 因人而异。

【保存文件类型在哪设置】怎样设置word文档图片默认保存格式怎样...

主要有下列原因； 1、新浪系统慢或有故障，会自动恢复； 2、网络速度慢或有故障，会自动恢复； 3、电脑速度慢，需要自己解决。

当不正常时，往往是系统、网络、电脑都存在问题，只要一个或两个问题解决就正常了。

刷新不行，重新开机试试，还是不行，换一个好电脑试试，否则只有等网络或系统恢复正常了.