[求助] 选择性粘贴的问题，论坛里搜不到

gao2ming1

我把选择的文字转换成图片，用选择性粘贴成图片是可以的，但用代码，出错

Sub 文字转图形()

   Selection.Copy  
Selection.PasteAndFormat (wdChartPicture)
End Sub

试了好久啊

[此贴子已经被作者于2007-5-19 19:27:53编辑过]

lwxg

请比较两者的差异

PasteAndFormat 方法

请参阅 应用于 示例 特性

粘贴选定的表格单元格并为其设置指定的格式。

expression.PasteAndFormat(Type)

expression   必需。该表达式返回“应用于”列表中的一个对象。

Type  WdRecoveryType，必需。粘贴选定的表格单元格时使用的格式类型。

WdRecoveryType 可以是下列 WdRecoveryType 常量之一：

wdChart  将 Microsoft Excel 图表粘贴为嵌入的 OLE 对象。

wdChartLinked 粘贴 Excel 图表并将其链接到原始 Excel 电子表格。

wdChartPicture  将 Excel 图表粘贴为图片。

wdFormatOriginalFormatting  保留粘贴材料的原始格式设置。

wdFormatPlainText  粘贴为无格式的纯文本文字。

wdFormatSurroundingFormattingWithEmphasis 使粘贴文本的格式与周围文本的格式匹配。

wdListCombineWithExistingList  使粘贴的列表与周围的列表合并。

wdListContinueNumbering  使粘贴的列表根据文档中的列表继续编号。

wdListRestartNumbering  对粘贴的列表重新进行编号。

wdSingleCellTable  将单一单元格表格粘贴为独立的表格。

wdSingleCellText  将单一单元格粘贴为文本。

wdTableAppendTable  通过将粘贴的行插入到选定的行中间，使粘贴的单元格合并到原有的表格中。

wdTableInsertAsRows  将粘贴的表格作为行插入到目标表格的两行中间。

wdTableOriginalFormatting  粘贴一个增补的表格，而不合并表格样式。

wdTableOverwriteCells  粘贴表格单元格并覆盖原有的表格单元格。

示例

本示例将一个选定的 Microsoft Excel 图表粘贴为图片，本示例假定“剪贴板”包含 Excel 图表。

Sub PasteChart()
    Selection.PasteAndFormat Type:=wdChartPicture
End Sub

============

CopyAsPicture 方法

请参阅 应用于 示例 特性

对于 Range 和 Selection 对象，CopyAsPicture 方法与 Copy 方法工作方式相同。

expression.CopyAsPicture

expression   必需。该表达式返回一个 Range 或 Selection 对象。

示例

该示例将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。

Sub CopyPasteAsPicture()
    ActiveDocument.Content.Select
    With Selection
        .CopyAsPicture
        .Collapse Direction:=wdCollapseEnd
        .PasteSpecial DataType:=wdPasteMetafilePicture
    End With
End Sub

gao2ming1

非常感谢lwxg兄

刚从自带“帮助文件”中搜到。但又出现一个问题，这样形成的图片后面有很多空白处，我用代码把后面部分剪切掉。问题：

1.不知能不能合并成一个程序，并选中图片。

2.能否转换成的图片长度刚好等于选择文字的长度，即后面没有空白处。（我的“剪切空白处”不能随文字的长度而改变）

Sub 选中文字转图形()
On Error Resume Next
    With Selection
        .CopyAsPicture
        '.Collapse Direction:=wdCollapseEnd
        .PasteSpecial DataType:=wdPasteMetafilePicture
    End With
End Sub
Sub 剪切空白处()
On Error Resume Next
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 = 380
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
End Sub

yuyvtul

老兄：我俩一样的问题，期待高手。
http://club.excelhome.net/viewthread.php?tid=241165&px=0

[此贴子已经被作者于2007-5-19 21:44:47编辑过]