title image


Smiley Re: Seitengröße in CorelDraw 12 über Makro an Objekt anpassen?
Hi,Option ExplicitSub Seitengroesse_anpassen()Dim Selektiertes As Shape, Sc As Long, SW As Double, SH As Double, aP As Page''Abgefangene Fehler:''Keine Seite aktiv''Kein Shape markiert''Kein Shape vorhanden''mehr als ein Shape vorhandenOn Error Resume NextSet aP = ActivePageIf Err 0 Then MsgBox "Kein aktives Blatt vorhanden!" Exit SubEnd IfOn Error GoTo 0Sc = aP.Shapes.CountIf Sc = 0 Then MsgBox "Keine Form gefunden!" Exit SubEnd IfIf Sc = 1 Then On Error GoTo Shit Set Selektiertes = ActiveSelection.Shapes(1) SW = Selektiertes.SizeWidth SH = Selektiertes.SizeHeight aP.SizeWidth = SW aP.SizeHeight = SH Selektiertes.PositionX = 0 Selektiertes.PositionY = SHExit SubElse MsgBox "Es darf nur eine Form vorhanden sein!"End IfShit:MsgBox "Keine Form markiert!"End Submfg xla



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: