Option Explicit
Sub TestMakro()
Dim meInfo As Shape
Set meInfo = Tabelle1.Shapes("Grafik 1") 'Deine Grafik
With ActiveWindow.VisibleRange
meInfo.Left = .Width / 2 - meInfo.Width / 2 'pos. Horizontal
meInfo.Top = .Height / 2 - meInfo.Height / 2 'pos. Vertikal
End With
meInfo.Visible = False 'Grafik einblenden
'Dein Makro
'...
'...
'...
meInfo.Visible = True 'Grafik ausblenden
End Sub
Gruß Tino
Option Explicit
Sub TestMakro()
Dim meInfo As Shape
Set meInfo = Tabelle1.Shapes("Grafik 1") 'Deine Grafik
With ActiveWindow.VisibleRange
meInfo.Left = .Width / 2 - meInfo.Width / 2 'pos. Horizontal
meInfo.Top = .Height / 2 - meInfo.Height / 2 'pos. Vertikal
End With
meInfo.Visible = True 'Grafik einblenden
'Dein Makro
'...
'...
'...
meInfo.Visible = False 'Grafik ausblenden
End Sub
Gruß Tino
Sub DeinMakro
dim StausbarSichtbar as boolean
StatusbarSichtbar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.Statusbar = "Bitte warten, Marko läuft"
'--- Hier dein Code
Application.Statusbar = false
Application.DisplayStatusBar = StatusbarSichtbar
End Sub
Gruß, Daniel