Bild - Position - auf allen Tabellenblättern gleich!

Die Position eines Bildes soll auf allen Tabellenblättern immer gleich sein, egal auf welchem Tabellanblatt ich es verschiebe.

Bild - Position - auf allen Tabellenblättern gleich...[ZIP, 100 KB]

Code gehört in "DieseArbeitsmappe":

Option Explicit
Const strShape As String = "Auto" ' Anpassen !!!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Application.ScreenUpdating = False
With Sh
.Shapes(strShape).Delete
.Paste
.Shapes(strShape).Top = lngRow
.Shapes(strShape).Left = lngColumn
End With
On Error GoTo Fin
Fin:
With Application
.Goto Sh.Range("A1"), True
.ScreenUpdating = True
.CutCopyMode = False
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
lngRow = Sh.Shapes(strShape).Top
lngColumn = Sh.Shapes(strShape).Left
Sh.Shapes(strShape).Copy
End Sub


Code gehört in ein "Modul":

Option Explicit
Public lngColumn As Long
Public lngRow As Long

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...