Visio2000: örnek makro bir grafik biçimi için bir bölge içindeki bir çizim aktarmak

ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.

Makalenin İngilizcesi aşağıdaki gibidir:291195
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Özet
Bu makalede, bir örnek Microsoft Visual Basic for Applications makrosu (alt yordam) bir şekil, çizim belirli bir bölgede seçer ve bunları bir grafik dosyasına verir içerir.
Daha fazla bilgi
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Örnek kod

Aşağıdaki örnek kodu çizim sayfasının bir bölgede bir seçim nesne tüm Visio şekilleri alır ve daha sonra grafik biçimi dışa aktarır.

Örneğin, bir <a0>8.5 x 11</a0> sayfasının sağ üst Dörtgen Bölümlü tüm şekiller alır.

Not: Export yöntemi çağrısı, kullanıcının en son seçtiğiniz seçenekleri aynı grafik süzgeç Visio kullanır, biçiminde bir dosya kaydedilmiş. Bu seçenekleri Visio 2000 program aracılığıyla değiştirilemez.
Public Sub SaveRegionDemo()Dim selectRegion As Visio.SelectionDim shpBoundingRect As Visio.Shape' Draw a rectangle that covers the quadrant that we want to save.Set shpBoundingRect = ActivePage.DrawRectangle(4.25, 11, 8.5, 5.5)' Get a selection object that contains all shapes that share space with the ' rectangle.Set selectRegion = _shpBoundingRect.SpatialNeighbors(visSpatialOverlap + visSpatialContain, 0, 0)' Comment the previous line and uncomment the next one if you want to ' save only shapes that are completely within the boundary rectangle:' Set selQuadrant = shpBoundingRect.SpatialNeighbors(visSpatialContain, 0, 0)shpBoundingRect.DeleteselectRegion.Export ("c:\test.bmp")End Sub				
Referanslar
Bu makaledeki örnek kodu kullanma hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
277011Visio2000: Nasıl Knowledge Base makalelerini örnek kod Çalıştır
Veya, aşağıdaki Microsoft Web sitesini ziyaret edin:
Resim grafik filtresi ver

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 291195 - Son İnceleme: 02/02/2014 14:14:45 - Düzeltme: 2.1

Microsoft Visio 2000 Standard Edition, Microsoft Visio 2000 Professional Edition, Microsoft Visio 2000 Technical Edition, Microsoft Visio 2000 Enterprise Edition

  • kbnosurvey kbarchive kbmt kbhowto KB291195 KbMttr
Geri bildirim