shapes与shaperange区别

ningyong58

PathAndFileName = ThisWorkbook.Path & "\Wmf\" & FileName
     With oRange
       ML = .Left
       MT = .Top
       MW = .Width
       MH = .Height
     End With
     ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select     
     Selection.ShapeRange.Fill.UserPicture PathAndFileName
红色部分语句是图片向Range填图片的关键语句．
问：
１shapes与shaperange区别
２　要实现图片填充到Range红色部分语句的shapes与shaperange组合是不可缺少的区别

lb_bn

从代码上看，shapes是父级

ningyong58

这是Word对Ｓhapes的解释．
请参以下用法：
由 Shape 对象组成的集合，这些对象代表文档中或者文档页眉和页脚中的所有图形。每个 Shape 对象代表图形层中的一个对象，诸如自选图形、任意多边形、OLE 对象或图片等。

注意 如果需要处理文档图形的一个子集（例如只处理文档中的自选图形或仅处理选定的图形），就必须创建一个 ShapeRange 集合，以用该集合包含需要处理的图形。该集合代表所选内容或区域中的所有 Shape 对象
在WORD中,可以这样使用:
新增一个图片对象（图片是图形的一种）：
Set MyPicture = .Shapes.AddPicture(FileName:=strBmp, _Left:=SLT, Top:=STP, Width:=PW, Height:=PH)
新增一个文本框对象
Set MyText = .Shapes.AddTextbox(msoTextOrientationHorizontal, SLT, STP + PH, PW, 25)
Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
Dim SelShape As Shape, W As Single, H As Single, Hp As Single, Ht As Single
On Error Resume Next
'判断光标所在位置或者选中的类型是否为图形
If Selection.Type = wdSelectionShape Then
'如果是图片并且选中的图片项目只有一个（注意可以用shapgerange(item)返回选中的图形（图片）项目
If Sel.ShapeRange.Type = 6 And Sel.ShapeRange.Count = 1 Then
Set SelShape = Sel.ShapeRange(1)
'以下可以对该selshape对象进行设置
http://club.excelhome.net/thread-251648-1-1.html
图形对象攻略指引
经常有朋友抱怨图形对象不好用，太少的参考代码，摆脱不掉的Selection、看不见成员列表，繁琐的代码输入、组合……，本文将围饶图形对象的使用一一给出这些问题的解决策略。
一、概述
1．什么是图形对象？
本文所述图形对象包括图片和形状，是指从EXCEL菜单-视图-工具栏中“窗体”和“绘图”工具栏向工作表中添加的对象。它们具有OLE控件相似的外观和功能，但使用方法上差别很大
''''-------------------------------
图形－Shapes
One More Great-Looking Documents Post – Shapes
又一篇关于“精美文档”的文章——图形
http://club.excelhome.net/viewth ... amp;highlight=shape
----------------------------

[ 本帖最后由 ningyong58 于 2009-12-24 07:31 编辑 ]

ningyong58

对象和Shape的差别
在EXCEL中"对象"是指工作表中的各种自选图形、任意多边形、OLE 对象或图片、图表、窗体、控件等，一般通过编辑-定位-定位条件中选“对象”可以对全部对象进行选择

在VBA中有一个shape对象（集合是shapes)，按解释应该与工作表中的对象是一样的

但是经常在用编辑定位办法定位时提示“找不到对象”时，在VBA中用 activesheet.shapes.count时计数却不为0，也就是说工作表中存在shape对象

经测试，VBA中的shape包含了工作表中的“自动筛选”产生的下位箭头（当然包括其他命令产生下拉箭头了）、数据有效性序列产生的下接箭头等，而这些在编辑定位中是不作为“对象”的

大家不妨试一试执行以下代码即可发现 Sub shapescount() Dim n n = ActiveSheet.Shapes.Count MsgBox "共有" & n & "个shapes" End Sub 还有一个有趣的现象是：在使用自动筛选或有据有效性后，删除了自动筛选或数据有效性序列的定义，以上代码的记数并没有减少，而仍然是原来的计数结果，即并没有真正地取消，要想完全取消自动筛选或数据有效性序列的设置产生的shapes对象，看来只用VBA来解决了 Sub shapesdel() Dim sp As Shape For Each sp In ActiveSheet.Shapes sp.Delete Next sp End Sub



http://club.excelhome.net/thread-291040-3-1.html

Sub 刷新照片()
y = Range("F3")
    ActiveSheet.Shapes("Rectangle 1").Select
    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 = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.UserPicture y
    Range("D3").Select
End Sub

------------------------------------------
删除工作表
Sub zldccmx() '删除当前工作簿中所有工作表中的Shapes
    Set ash = ActiveSheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Sheets
        sh.Activate
        sh.Shapes.SelectAll: Selection.Delete
    Next
    ash.Activate
    Application.ScreenUpdating = True
End Sub

---------------------
http://club.excelhome.net/viewth ... amp;highlight=shape
VBA实现对shapes的条件选择，如在我的例子里面怎样实现对除了CommandButton1和CommandButton2以外所有图形的选择
Sub bb()
[a1].Select
Dim shp As Shape
For Each shp In Sheets(1).Shapes
If shp.Type <> msoOLEControlObject Then
shp.Select Replace:=False
End If
Next
End Sub
-------------------

[ 本帖最后由 ningyong58 于 2009-12-24 07:39 编辑 ]

ningyong58

设图片所在目录为e:\ex\，图片扩展名为jpg.
在你需要操作的表名上按鼠标右键选查看代码，将下列代码填入。然后在A1修改文件名试试。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next
Shapes.SelectAll
Selection.ShapeRange.Delete
Range("A2").Select
Range("A2").RowHeight = 60 '定义A2的行高，磅数。
Range("A2").ColumnWidth = 12 '定义A2的列宽，标准字符数。
Shapes.AddShape(msoShapeRectangle, 0, 24, 72, 60).Select '定义图片框的左上角位置和宽度、高度。
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Shadow.Obscured = msoTrue
Selection.ShapeRange.Shadow.Type = msoShadow18
Selection.ShapeRange.Fill.UserPicture "e:\ex\" & Range("A1").Value & ".jpg"
Range("A1").Select
Application.EnableEvents = True
End Sub


批量插入图片.rar (264.23 KB, 下载次数: 252)

2009-12-23 20:24 上传

点击文件名下载附件

[ 本帖最后由 ningyong58 于 2009-12-23 20:24 编辑 ]

woaicomputer

在EXCEL中，Shape对象是不是在没有.Select 之前，无法使用with段来简化代码？
我在测试时，一直提示：
“对象不支持该属性或方法”！

sub 测试()
   With ActiveSheet.Shapes("椭圆 1").ShapeRange.Fill
'    ActiveSheet.Shapes("椭圆 1").Select
'    With Selection.ShapeRange.Fill
        .ForeColor.SchemeColor = 10   '红色
        .Visible = msoTrue
        .Solid
    End With

end sub

xc555

正缺少这方面资料，果断收藏

aoe1981

在帮助中查到了下面的资料，不知道图形类型的数字序号，求助：
应用于 Shape 和 ShapeRange 对象的 Type 属性。

返回或设置图形类型。MsoShapeType 类型，只读。

MsoShapeType 可为以下 MsoShapeType 常量之一。
msoAutoShape
msoCallout
msoCanvas
msoChart
msoComment
msoDiagram
msoEmbeddedOLEObject
msoFormControl
msoFreeform
msoGroup
msoLine
msoLinkedOLEObject
msoLinkedPicture
msoMedia  不能与此属性一同使用。该常量与其他 Microsoft Office 应用程序中的图形一同使用。
msoOLEControlObject
msoPicture
msoPlaceholder  不能与此属性一同使用。该常量与其他 Microsoft Office 应用程序中的图形一同使用。
msoScriptAnchor
msoShapeTypeMixed
msoTable
msoTextBox
msoTextEffect

expression.Type
expression      必需。该表达式返回上面的对象之一。

mnmn888

woaicomputer 发表于 2014-3-4 14:47
在EXCEL中，Shape对象是不是在没有.Select 之前，无法使用with段来简化代码？
我在测试时，一直提示：
“ ...

Shapes("椭圆 1")是一个Shape对象，Shape对象没有ShapeRange属性，只有Shapes对象才有Range属性，并且Shapes.Range属性返回一个ShapeRange对象。你改成这样就可以
    With ActiveSheet.Shapes.Range(Array("椭圆 1")).Fill
         .ForeColor.SchemeColor = 10   '红色
        .Visible = msoTrue
         .Solid
     End With
End Sub
但是你就一个椭圆形状，不需要返回ShapeRange进行设置，直接对单个椭圆形状设置即可。
如果有3个或更多个椭圆，则可以这样写
Sub 测试()
    With ActiveSheet.Shapes.Range(Array("椭圆 1","椭圆 2","椭圆3")).Fill
         .ForeColor.SchemeColor = 10   '红色
        .Visible = msoTrue
         .Solid
     End With
End Sub
当然Selection的ShapeRange属性也可以返回ShapeRange对象，所以也可以这样写
Sub 测试()
     ActiveSheet.Shapes.SelectAll  '如果ActiveSheet仅仅有3个椭圆，并且一起设置，则可以全选，否则用上面的方法
     With Selection.ShapeRange.Fill
         .ForeColor.SchemeColor = 10   '红色
        .Visible = msoTrue
         .Solid
     End With
End Sub

xl6403

收藏学习了！