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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen