imdaaaat...makroya sıkıştıım...

Corel Draw - imdaaaat...makroya sıkıştıım... ...

Cevapla
imdaaaat...makroya sıkıştıım...
ERKUS isimli Üye şimdilik offline konumundadır

ERKUS(58)

Grafiker / İzmir

imdaaaat...makroya sıkıştıım...

Alt 21-09-2008 #1
Sponsorlu Bağlantılar

herkese kolay gelsin.....bir makroya ihtiyacım var....acaba çok sayfalı bir çalışmanın tüm sayfa ebadlarını (elbette içindeki çalışma ile birlikte) değiştirebileceğim bir mokro bilen var mıdır?Kısaca A3 ebadındaki bir takvim sayfalarını (48 sayfa) A4 ebadına küçültmem gerekiyor....ilginize teşekkürleeeer:sadsmile:
Bu mesajdan alıntı yap
Sponsor Links

Grafikerler.net Reklamları

salih_kent isimli Üye şimdilik offline konumundadır

salih_kent

Grafiker / Denizli

Standart
Alt 21-09-2008 #2
                             Sponsorlu Bağlantılar
hazır da yok ama çok acil değilse yarına hazırlayabilirim böyle bi makroyu
Bu mesajdan alıntı yap
ERKUS isimli Üye şimdilik offline konumundadır

ERKUS(58)

Grafiker / İzmir

Standart
Alt 22-09-2008 #3
saolasın salih......zahmet olacak ama sanırım birçok arkadaşımızın da işine yarayacaktır...teşekkürler..kolay gelsin
Bu mesajdan alıntı yap
salih_kent isimli Üye şimdilik offline konumundadır

salih_kent

Grafiker / Denizli

Standart
Alt 02-10-2008 #4
kusura bakmayın yoğunluktan hemen cevap veremedim.

bu işi yapacak küçük bi makro hazırladım. aşağıdaki adımlarla uygulayabilirsiniz...


imdaaaat...makroya sıkıştıım...


[COLOR="Red"]Makro Kodları; (Bunları yukarıda anlatılan yere kopyala-yapıştır yapınız)[/COLOR]
'------------------------------------------------------------------


Public Sub ebat()

Dim i As Integer
Dim en, boy As Integer
Dim bul As Shape
Dim cerceve As Shape

For i = 1 To ActiveDocument.Pages.Count

ActiveDocument.Pages(i).Activate

' sayfa ebatında renksiz çerçeve atıyoruz...
Set cerceve = ActiveLayer.CreateRectangle(ActivePage.LeftX, ActivePage.TopY, ActivePage.RightX, ActivePage.BottomY)
cerceve.Fill.ApplyNoFill
cerceve.Outline.SetProperties 0#, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 0), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#


' sayfadaki tüm çalışmaların grubunu bozuyoruz....

ActiveDocument.Pages(i).Shapes.All.UngroupAll


' sayfadaki tüm vektörel nesneleri konvertliyoruz....
ActiveDocument.Pages(i).Shapes.FindShapes(, cdrTextShape).ConvertToCurves


' sayfadaki tüm çalışmayı yeniden grupluyoruz....
ActiveDocument.Pages(i).Shapes.All.Group

' a3'den a4'e küçültme işlemi....
Set bul = ActiveSelection
en = ActiveSelection.SizeWidth
boy = ActiveSelection.SizeHeight
bul.SetSize 210, 297

Set bul = ActiveSelection



Next i
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).SizeHeight = 297
ActiveDocument.Pages(i).SizeWidth = 210
Next i
End Sub


'------------------------------------------------------------------
Bu mesajdan alıntı yap
ERKUS isimli Üye şimdilik offline konumundadır

ERKUS(58)

Grafiker / İzmir

Standart
Alt 02-10-2008 #5
salih kardeşim çok teşekkürler....ellerine ve gözüne sağlık....izmirden denizliye çok selam...ayruca ramazan bayramın mübaREK OLSUN
Bu mesajdan alıntı yap
salih_kent isimli Üye şimdilik offline konumundadır

salih_kent

Grafiker / Denizli

Standart
Alt 03-10-2008 #6
teşekkürler buradan da selamlar... imdaaaat...makroya sıkıştıım...

umarım işe yarar...
Bu mesajdan alıntı yap
Cevapla

Tags
imdaaaatmakroya, imdaaat makro lazım..., sıkıştıım

Kapat
Şifremi Unuttum?