A
Abhishek Bagga
Hi!
I am accessing the properties of the borders of a table inserted within ppt
presentation but facing this very annoying problem.
Whenever i access any property related to the borders of the table it
changes/Increments the ID as well as the shape of the current cell.
This has become a major problem since i am refering to the current shape
thru a variable and when the id changes the my code gives me a com exception.
I am facing this problem with both off2k (Only shape name as Shape Id does
not exists) and off XP
I am posting a small sample code to better explain my problem
You can create a simple 3X3 table and select the table and chk this code
thru VB editor inside PPT
I am actually creating my app in .net but for testing purposes i am posting
the vba code
Sub Testing()
With ActiveWindow.Selection.ShapeRange(1).Table.Cell(1, 1)
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
End With
End Sub
Kindly give some suggestion or a solution to this or a link to some other
similar post that would be of some help
I am accessing the properties of the borders of a table inserted within ppt
presentation but facing this very annoying problem.
Whenever i access any property related to the borders of the table it
changes/Increments the ID as well as the shape of the current cell.
This has become a major problem since i am refering to the current shape
thru a variable and when the id changes the my code gives me a com exception.
I am facing this problem with both off2k (Only shape name as Shape Id does
not exists) and off XP
I am posting a small sample code to better explain my problem
You can create a simple 3X3 table and select the table and chk this code
thru VB editor inside PPT
I am actually creating my app in .net but for testing purposes i am posting
the vba code
Sub Testing()
With ActiveWindow.Selection.ShapeRange(1).Table.Cell(1, 1)
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
MsgBox .Borders(ppBorderTop).Visible
MsgBox ActiveWindow.Selection.ShapeRange(1).Id
MsgBox ActiveWindow.Selection.ShapeRange(1).Name
End With
End Sub
Kindly give some suggestion or a solution to this or a link to some other
similar post that would be of some help