Get selected cells in VBA 1

dkleinot · Feb 8, 2011

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

mechamb · Feb 10, 2011

dkleinot, try this code and let us know if it helps.

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

http://www.EnvisionCAD.com

Facebook:

http://www.facebook.com/EnvisionCAD

Twitter:

http://twitter.com/envisioncad

Youtube:

http://www.youtube.com/user/envisioncad