Shape formatieren
15.08.2023 12:26:16
Siegfried
ich möchte ein Bild in eine Zelle so einfügen, dass die Zelle bedeckt ist.
Dazu hab e ich folgenden Code:
Sub Schaltfläche5_Klicken()
' Gruppe A .......................................................................
Dim n1 As Integer
Dim LandName As String, FlagName As String
For n1 = 1 To GrStärke
LandName = Range("Gruppe_A").Offset(n1 * 2, 0).Value
FlagName = _
Tabelle1.Range("Flag.Name").Offset(WorksheetFunction.Match(LandName, _
Tabelle1.Columns(Range("Land.Name").Column), 0) - 1, 0)
' zugehörige Flagge einfügen
Tabelle1.Activate
Tabelle1.Shapes(FlagName).Copy
Tabelle2.Activate
Range("Flag.GrPhase.A" & n1).PasteSpecial
Range("Gruppe_A").Offset(n1 * 2, 5).Value = Selection.Name
FlagName = Range("Gruppe_A").Offset(n1 * 2, 5).Value
ActiveSheet.Shapes(FlagName).Height = Range("Flag.GrPhase.A" & n1).Height
ActiveSheet.Shapes(FlagName).Width = Range("Flag.GrPhase.A" & n1).Width
Debug.Print FlagName, Range("Flag.GrPhase.A" & n1).Height, ActiveSheet.Shapes(FlagName).Height
' Selection.ShapeRange.Height = Range("Flag.GrPhase.A" & n1).Height
' Selection.ShapeRange.Width = Range("Flag.GrPhase.A" & n1).Width
Next n1
End Sub
Leider funktioniert er nicht wie gewollt.
Wie muss ich es richtig anstellen?
Gruß
Siegfried