Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding references
Hi,
I have developed a tool in excel 2003, in which i had used powerpoint objects (Microsoft PowerPoint 11.0 Object Library). if i open it in Excel 2002 or Excel 2000 it will give an error. is there any way to find out the respective object library of the respective versions. Thanks in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding references
Why not use late binding?
Dim oPpt As Object Set oPpt = CreateObject("Powerpoint.Application") etc. -- HTH RP "Jagadish" wrote in message ... Hi, I have developed a tool in excel 2003, in which i had used powerpoint objects (Microsoft PowerPoint 11.0 Object Library). if i open it in Excel 2002 or Excel 2000 it will give an error. is there any way to find out the respective object library of the respective versions. Thanks in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
adding references
I use this code to get the library reference:
Sub GetLibraryGUID() Dim c As Byte Dim myCheck As Long Dim P As Boolean Dim Rng As Range Dim i As Byte c = ActiveWorkbook.VBProject.References.Count On Error Resume Next Dim Message, Title, Default, T As Single Message = "NUMBER ?" & Chr(13) & "________" Title = " GET REFERENCES GUID ( 1 TO " & c & " )" Default = c T = InputBox(Message, Title, Default, 3500, 3500) If Not T Mod 1 = 0 Then Exit Sub End If If T < 1 Or T c Then Exit Sub End If MsgBox "REFERENCE ( " & T & " ) NAME : " & _ ActiveWorkbook.VBProject.References(T).Name & vbCrLf & vbCrLf & _ "MAJOR : " & _ ActiveWorkbook.VBProject.References.Item(T).Major & _ vbCrLf & vbCrLf & "MINOR : " & _ ActiveWorkbook.VBProject.References.Item(T).Minor & _ vbCrLf & vbCrLf & _ "GUID ( " & T & " ) : " & _ ActiveWorkbook.VBProject.References.Item(T).GUID, , _ " REFERENCES GUID : ITEM " & T myCheck = MsgBox(" PUT INFORMATION IN SHEET ?", _ vbYesNo, " GetLibraryGUID") If myCheck = vbNo Then Exit Sub End If If ActiveSheet.ProtectContents = True Then P = True ActiveSheet.Unprotect Else P = False End If Range(Cells(ActiveCell.Row, ActiveCell.Column), _ Cells(ActiveCell.Row + 3, ActiveCell.Column + 1)).Select For Each Rng In Selection.Cells If Not IsEmpty(Rng) Then i = i + 1 End If Next If i 0 Then myCheck = MsgBox(" OVERWRITE DATA IN THIS RANGE ?", _ vbYesNo, " GetLibraryGUID") If myCheck = vbNo Then Exit Sub End If End If On Error Resume Next ActiveCell.Value = "NAME :" ActiveCell.Offset(1, 0).Value = "MAJOR :" ActiveCell.Offset(2, 0).Value = "MINOR :" ActiveCell.Offset(3, 0).Value = "GUID :" ActiveCell.Offset(0, 1).Value = _ ActiveWorkbook.VBProject.References(T).Name ActiveCell.Offset(1, 1).Value = _ ActiveWorkbook.VBProject.References.Item(T).Major ActiveCell.Offset(2, 1).Value = _ ActiveWorkbook.VBProject.References.Item(T).Minor ActiveCell.Offset(3, 1).Value = _ ActiveWorkbook.VBProject.References.Item(T).GUID If P = True Then ActiveSheet.Protect End If End Sub It will need the MS VBA Extensibility library (I have version 5.3) RBS "Jagadish" wrote in message ... Hi, I have developed a tool in excel 2003, in which i had used powerpoint objects (Microsoft PowerPoint 11.0 Object Library). if i open it in Excel 2002 or Excel 2000 it will give an error. is there any way to find out the respective object library of the respective versions. Thanks in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with converting a block of cells with Absolute and mixed references to relative references | Excel Worksheet Functions | |||
How to rename references from range names to cell references | Excel Discussion (Misc queries) | |||
Adding a row to worksheet does not update cell references in another. | Excel Worksheet Functions | |||
default references or adding programatically | Excel Programming | |||
Adding references automatically | Excel Programming |