Selecting particular Object types with VBA

Guessed · #2 06-26-2019, 04:35 PM

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

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