Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Return OLEObjects values or names - two examples
No question here, just a couple of procedure examples for the archive.
GET VALUES OF OLEObjects on worksheet GET NAMES OF OLEObject Names on worksheet Search criteria: Loop through OLEObjects and get values Return OLEObjects values List OLEObject Values List OLEObjects values Get OLEObjects Values Return OLEObjects names Get OLEOBjects names OLEObjects name return OLEBObjects values return Sub OLEObjectNamesReturn() 'Return all or any OLEObjects names to VB message box Dim oleObj As OLEObject For Each oleObj In ActiveSheet.OLEObjects If TypeOf oleObj.Object Is MSForms.HTMLText Then MsgBox "HTMLText: " & oleObj.Name End If Next End Sub Sub OLEObjectValueReturn() 'Return any or all OLEObjects values on active worksheet to active worksheet Dim oleObj As OLEObject For Each oleObj In ActiveSheet.OLEObjects If TypeOf oleObj.Object Is MSForms.HTMLText Then ' MsgBox "HTMLText: " & oleObj.Object.Value ActiveCell.Value = oleObj.Object.Value ActiveCell.Offset(1, 0).Select End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Return the values for the same names across a row of data | Excel Discussion (Misc queries) | |||
return all worksheet tab names and chart sheet tab names in report - an example | Excel Programming | |||
Taking over OLEObjects... Possible ?! | Excel Programming | |||
OLEObjects clickable? | Excel Programming | |||
VBA Syntax for VLOOKUP to return array of return values | Excel Programming |