#1
|
|||
|
|||
Selecting particular Object types with VBA
Hi all,
I am trying to select a particular object type in Visio. I have got some code that seems to do this however when I select the object I want / Which is a cube box kind of graphic(still a shape from the standard templates), it does not work. Any ideas to what I am doing wrong with my code? Code:
Sub SelectSimilarShapesByMaster() If ActiveWindow.Selection.Count = 0 Then Exit Sub Dim SelShp As Visio.Shape Set SelShp = ActiveWindow.Selection(1) If SelShp.Master Is Nothing Then Exit Sub ActiveWindow.DeselectAll Dim CheckShp As Visio.Shape For Each CheckShp In ActivePage.Shapes If Not CheckShp.Master Is Nothing Then If CheckShp.Master = SelShp.Master Then ActiveWindow.Select CheckShp, visSelect End If End If Next CheckShp End Sub Thanks |
#2
|
||||
|
||||
Your code works fine on my machine. I don't know what is going wrong on your machine. Perhaps a reboot is in order.
Maybe you could try including a debug.print statement to find out what masters it is trying to match with Code:
Sub SelectSimilarShapesByMaster() Dim SelShp As Visio.Shape, CheckShp As Visio.Shape If ActiveWindow.Selection.Count > 0 Then Set SelShp = ActiveWindow.Selection(1) If SelShp.Master Is Nothing Then Exit Sub For Each CheckShp In ActivePage.Shapes If Not CheckShp.Master Is Nothing Then Debug.Print SelShp.Master, CheckShp.Master If CheckShp.Master = SelShp.Master Then ActiveWindow.Select CheckShp, visSelect End If End If Next CheckShp End If End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
I have Error at File System Object: Cant find object or lib | johndrew | Word VBA | 3 | 07-05-2018 08:46 PM |
Organization Chart Object Changes to Equation Object? | jhcoleman53 | Drawing and Graphics | 0 | 08-24-2017 07:09 AM |
Selecting and deleting all Object Anchors | jeffreybrown | Word VBA | 2 | 05-06-2016 04:27 AM |
Insert Object into Word Document only appears as Icon, without selecting display as Icon | Simy | Word | 1 | 04-30-2015 12:47 PM |
Problem: object library invalid or contains references to object definitions | aligahk06 | Office | 0 | 08-19-2010 12:29 PM |