point til flemmingdahl

Var det muligt med en lille reference, hvis man ikke lige ved hvor det er du kiksede pointgivningen???

Ja da det er det her
Gem med samme cellestørelse og udskriftopstillin  31/07 2001 10:34:51    60 point fra lillejens

hvordan gemmer man med samme celle bredde, højde og kun værdier i en makro   

  Afvist svar fra zardic 
31/07 2001 10:38:14    Sub Makro1()
Selection.ColumnWidth = 34
End Sub

Dette retter celle bredden to det felt to er i   

  Kommentar fra lrp 
31/07 2001 10:38:18    Kan du ikke prøve at uddybe lidt - jeg kan ikke rigtig gennemskue hvad du mener.   

  Kommentar fra zardic 
31/07 2001 10:46:42    Selection == den celle du er
ColumnWidth == bredden på den kolonne cellen
er i.

evt. prøv a inspille og der efter rediger den
og se hvad den gør.

For at kunne hjælpe more skal jeg have more info

Zardic

 

  Kommentar fra lillejens 
31/07 2001 10:49:34    HER ER ET UDSNIT AF MIN MAKRO Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
  Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
  OG NÅR JEG TILFØJER DENNE LINJE VIRKER DET IKKE
Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False   

  Kommentar fra janvogt 
31/07 2001 10:50:34    Ja, lidt uddybning af problemet er vist nødvendigt.   

  Kommentar fra zardic 
31/07 2001 10:55:47    kan ikke hjælpe   

  Kommentar fra lillejens 
31/07 2001 10:56:40    Hvi det ikke er tilstrækeligt kan jeg sende hele koden .Jeg gemmer automatisk med en makro ,og når jeg åbner det gente ark for at redigere og vil udskrive det ,passer cellebreden ikke og jeg skal indstille udskrivningen igen ,og da der er flere brugere kan de slet ikke finde ud af det   

  Accepteret svar fra janvogt
Point : 45
31/07 2001 12:12:41    Det vil sige, at cellebredden ændrer sig automatisk? Det lyder mystisk.
Prøv evt. at sende filen til mig, så skal jeg se på det.   

  Kommentar fra lillejens 
31/07 2001 14:02:11    jeg har sendt arket til janvogt   

  Kommentar fra flemmingdahl 
31/07 2001 18:44:27    Jeg kan måske være behjælpelig, hvis det ikke skulle lykkedes for janvogt.   

  Accepteret svar fra flemmingdahl
Point : 15
06/08 2001 21:40:39    >>lillejens

I bunden af den makro, som du har sendt til mig, der har du følgende kode...

  ActiveWindow.Zoom = 75    \'måske denne komando kan beholde zoom størelsen
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True \'<---indsætter billeder her :)
  ActiveWorkbook.SaveAs Filename:=Path + Name
  ActiveWorkbook.Close (0)
  ActiveWorkbook.Close (0)
End Sub

Flyt lidt rundt på det, og slet et par linier, således det kommer til at se således ud.

  ActiveWorkbook.SaveAs Filename:=Path + Name
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.511811023622047)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Zoom = 82
    End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  ActiveSheet.Range(\"A1\").Select
  ActiveWorkbook.Close SaveChanges:=True
  ActiveWorkbook.Close (0)
End Sub

www.win-consult.com
 

  Kommentar fra lillejens 
07/08 2001 08:56:49    Nu ser det sidste af koden sådan ud og den opfylder alle mine ønsker tak til Flemming og Jan for de mange forsøg,jeg giver de 60 point til Flemming og 30 til Jan for de gode forsøg  som jeg har lært en del af ;o] mvh Lillejens   

  Kommentar fra lillejens 
07/08 2001 08:59:01    Hovsa her er koden.
ActiveWorkbook.SaveAs Filename:=Path + Name
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.196850393700787)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.511811023622047)
        .BottomMargin = Application.InchesToPoints(0.551181102362205)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Zoom = 84
    End With
  ActiveWindow.Zoom = 75    \'Indstillingskode ......
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  ActiveSheet.Range(\"A1\").Select
  ActiveWorkbook.Close SaveChanges:=True
  ActiveWorkbook.Close (0)

Er det til moi?
:-)

Tak :-)

lillejens>> Du kunne have nøjes med et link til siden... :-)