x8: Dokumentgröße an Objekt anpassen
#2
Hallo mtemp,

mtemp schrieb:Berücksichtigt zwar ebenfalls nicht Konturbreiten. Doch das bin ich ja gewöhnt...

meinst Du mit „Konturbreiten“ vielleicht die Breite des Umrissstiftes?

Falls ja, probiere einmal das aus:

Code:
Sub SeiteAnpassen()

    Dim s As ShapeRange, r As New Shape
    
    Dim w As Double, h As Double, x As Double, y As Double
    
    Set s = ActiveSelection.Shapes.All
    If s.Shapes.Count = 0 Then
        MsgBox "Objekte auswählen"
        Exit Sub
    End If
    ActiveDocument.BeginCommandGroup "Seite anpassen"
    Application.Optimization = True
    
    s.GetBoundingBox x, y, w, h, True
    Set r = ActiveLayer.CreateRectangle2(x, y, w, h)
    s.Add r
    ActivePage.SizeWidth = w
    ActivePage.SizeHeight = h
    s.CenterX = ActivePage.CenterX
    s.CenterY = ActivePage.CenterY
    r.Delete
    Application.Optimization = False
    
    ActiveDocument.EndCommandGroup
    ActiveWindow.Refresh
    
End Sub

Gruß

Koter
Zitieren



Nachrichten in diesem Thema
x8: Dokumentgröße an Objekt anpassen - von koter - 11.11.2016, 01:09

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  objekt Bild teilweise erhellen panzerauto 6 582 17.06.2023, 12:28
Letzter Beitrag: mvm
  Objekt im Drehmodus fein justieren ? panzerauto 6 538 28.05.2023, 15:59
Letzter Beitrag: koter
  Objekt RGB Modus in CMYK umstellen Spaceliner 7 477 19.05.2023, 08:51
Letzter Beitrag: norre
  Objekt umfließen lassen honkie 4 520 27.03.2023, 13:17
Letzter Beitrag: honkie
  via VBA Objekt mit Namen ansprechen Pucki 2 728 24.08.2022, 18:34
Letzter Beitrag: Pucki
Photo Bogenschrift am Objekt ausrichten ist weg ? panzerauto 6 968 08.08.2022, 18:24
Letzter Beitrag: panzerauto
  Objekt aus Knoten mit Farbe füllen Spaceliner 7 1.249 02.08.2022, 10:11
Letzter Beitrag: Spaceliner
  Schrift oder Objekt einseitig grösser ziehen derBibo1969 2 1.140 01.03.2022, 20:00
Letzter Beitrag: derBibo1969
  VBA relative Objekt Position Pucki 27 4.930 15.11.2021, 22:39
Letzter Beitrag: koter
  Objekt verschieben Karthagos 2 1.098 03.05.2021, 12:38
Letzter Beitrag: Karthagos