P
Peter
Hello,
i have a VB Code to handle powerpoint presentations and need this code
in C# but i have no idea how to manage this.
Can anybody help me please, need this very urgent for my work!
Thanks a lot!
Peter
Code in VB:
Sub copy()
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.TextRange.Characters(Start:=1,
Length:=7).Select
ActiveWindow.Selection.Copy
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.TextRange.Characters(Start:=7,
Length:=0).Select
ActiveWindow.View.Paste
ActiveWindow.Selection.SlideRange.Shapes("Picture 3").Select
ActiveWindow.Selection.ShapeRange.Delete
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.Delete
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 8").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 6").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.Delete
End Sub
i have a VB Code to handle powerpoint presentations and need this code
in C# but i have no idea how to manage this.
Can anybody help me please, need this very urgent for my work!
Thanks a lot!
Peter
Code in VB:
Sub copy()
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.TextRange.Characters(Start:=1,
Length:=7).Select
ActiveWindow.Selection.Copy
ActivePresentation.Slides.Range.Select
ActiveWindow.Selection.TextRange.Characters(Start:=7,
Length:=0).Select
ActiveWindow.View.Paste
ActiveWindow.Selection.SlideRange.Shapes("Picture 3").Select
ActiveWindow.Selection.ShapeRange.Delete
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.Delete
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 8").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 6").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.Delete
End Sub