ActiveShape, Shape.deselect
Reinhard
ich habe für jmdn. in einem anderen Forum den nachfolgenden Code gebastelt. Der funktioniert auch.
Er muß nur in Blatt1 eine Grafik markieren, den Button klicken und sie erscheint in Blatt2 an der gleichen Position wie in Blatt1.
Nun sind aber "danach" beide Grafiken selektiert. Um beide Gafiken zu deselectieren kenne ich nur daß ich in jedem Blatt eine Zelle aktiviern/selektieren muß.
In der XL 2000 Hilfe kann man zwar bei Index "ActiveForm" sehen/auswählen, aber als Ergebnis kommt da irgendwas mit ner For-Schleife.
ActiveForm.deselect, am besten AvtiveShape.deselect fände ich schicker als Range("A2").select
Genauso fände ich es besser anstatt
Selection.copy
Activeshape.Copy
zu schreiben.
Okay, mein Code funktioniert ja. Ich formuliere mal meine eigentliche Frage so:
Wie würdet ihr das schreiben sodaß nach der Prozedur beide Grafiken nicht mehr selektiert sind.
Wie gesagt, eine Zelle selektieren kenne ich.
Wie auch immer, ein schönes WE @alle
Gruß
Reinhard
Option Explicit
Sub BildKopieren()
On Error GoTo hell
If TypeName(Selection) = "Picture" Then
With Worksheets("Tabelle2")
Selection.Copy
.Paste
.Shapes(.Shapes.Count).Top = Selection.Top
.Shapes(.Shapes.Count).Left = Selection.Left
End With
Else
MsgBox "Erste ein Bild markieren dann Button klicken", vbExclamation
End If
hell:
If Err.Number 0 Then MsgBox Err.Number & vbCrLf & Err.Description
End Sub
Anzeige