VBA: Excel Bereich in Word einfügen, Formen verschieben sich

[Joe]

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

[Joe]

Push :)

[chris-ka]

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

[Joe]

Perfekt! Danke Chris!

Schöne Grüße Joe