Get selected cells in VBA
Get selected cells in VBA
(OP)
I'm trying to get the cells that are currently selected by the user in VBA. The ActiveModelReferences says that there is somthing selected but ActiveModelReference.GetSelectedElements returns nothing. The cells are named, but that dosent help me since there are hundreds of the same cells, i want the ones that have been selected.
Any help would be greatly appriciated.
Thanks
Any help would be greatly appriciated.
Thanks
RE: Get selected cells in VBA
Sub SelectionTest()
Dim ee As ElementEnumerator
If ActiveModelReference.AnyElementsSelected Then
Set ee = ActiveModelReference.GetSelectedElements
If ee Is Nothing Then
Debug.Print "ActiveModelReference.GetSelectedElements returned nothing"
Else
Do While ee.MoveNext
Select Case ee.Current.Type
Case msdElementTypeCellHeader
Debug.Print "Cell Name = " & ee.Current.AsCellElement.Name
Case msdElementTypeSharedCell
Debug.Print "Shared Cell Name = " & ee.Current.AsSharedCellElement.Name
Case Else
Debug.Print "Not a cell - Element Type = " & CStr(ee.Current.Type)
End Select
Loop
End If
Else
Debug.Print "No Elements selected"
End If
End Sub
Training | Consulting | Programming
www.EnvisionCAD.com
Facebook: http://www.facebook.com/EnvisionCAD
Twitter: http://twitter.com/envisioncad
Youtube: http://www.youtube.com/user/envisioncad
RE: Get selected cells in VBA
Thanks for the help!
RE: Get selected cells in VBA
Training | Consulting | Programming
www.EnvisionCAD.com
Facebook: http://www.facebook.com/EnvisionCAD
Twitter: http://twitter.com/envisioncad
Youtube: http://www.youtube.com/user/envisioncad