Může prosím Vás někdo poradit jak uvedenou proceduru,kterou jsem spáchal před XXX lety a používal ve VBA Wordu převést do VBA Excel
Nějak se z toho nemůžu vymotat!!
Děkuji
Kód: Vybrat vše
Private Sub CommandButton1_Click()
Dim AAa As Object
Set AAa = CreateObject("word.application")
Set myDocument = AAa.Documents.Add
If AAa.ActiveWindow.View.SplitSpecial = wdPaneNone Then
AAa.ActiveWindow.ActivePane.View.Type = wdPageView
Else
AAa.ActiveWindow.View.Type = wdPageView
End If
AAa.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
AAa.ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitFullPage
AAa.ActiveWindow.View.FullScreen = Not AAa.ActiveWindow.View.FullScreen
AAa.ActiveWindow.Selection.PageSetup.TopMargin = CentimetersToPoints(0)
AAa.ActiveWindow.Selection.PageSetup.LeftMargin = CentimetersToPoints(0)
For i = 0 To 10
Set myCentr = myDocument.Shapes.AddShape(msoShapeOval, ((Díry(i, 1)) / 2), 30, 10, 10)
With myCentr.Line
.ForeColor.RGB = RGB(180, 0, 255)
End With
Next i
CasPauzy = 5 ' Nastavení délky.
Start1 = Timer ' Uchování času začátku pauzy.
Do While Timer < Start1 + CasPauzy
DoEvents ' Poskytnutí času jiným procesům
Loop
AAa.ActiveWindow.View.FullScreen = Not AAa.ActiveWindow.View.FullScreen
AAa.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
AAa.Application.WindowState = wdWindowStateMaximize
AAa.Quit
End Sub
