Clever-Excel-Forum

Guten Tag alle miteinander,

ich habe folgendes Problem.
Wenn ein Bereich aus Excel in Word kopiert wird und in dem Bereich auch Formen enthalten sind,
werden die Formen komplett schief und verrutscht in Word dargestellt.
Soweit ich weiß kann der Bereich als Bild eingefügt werden, dann ist das Problem nicht mehr vorhanden.

1. Woran liegt das genau?
2. Welche Lösungen gibt es dafür?
3. Falls es nur die einzige Möglichkeit ist den Bereich als Bild einzufügen, wie ist dies in VBA realisierbar?

Schöne Grüße Joe

Push :)

Hi,

Code:
Sub Schaltfläche21_Klicken()

 Dim objShp As Shape

  Dim rng As Range, int_Index As Integer

  Dim arr_sh(), mySh

  'Shapes in diesem Bereich 'da ja deine Schaltfläche auch ein Shape ist.

  Set rng = Range("A1:G10")

  For Each objShp In ActiveSheet.Shapes

    If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then

       ReDim Preserve arr_sh(int_Index)

       arr_sh(int_Index) = objShp.Name

       int_Index = int_Index + 1

    End If

  Next

  If int_Index > 1 Then

    Set mySh = ActiveSheet.Shapes.Range(arr_sh).Group

  Else

    Set mySh = ActiveSheet.Shapes.Range(arr_sh(0))

  End If

  ActiveSheet.Shapes(mySh.Name).Copy

    With CreateObject("Word.document")

        .Application.Visible = True

        .Paragraphs.last.Range.Paste

   End With

   mySh.Ungroup

  Set rng = Nothing

  Set mySh = Nothing

End Sub

würde Dir das so passen?

lg
Chris

Perfekt! Danke Chris!

Schöne Grüße Joe

Joe

Joe

chris-ka

Joe