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

Makale çevirileri Makale çevirileri
Makale numarası: 291195 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Hepsini aç | Hepsini kapa

Bu Sayfada

Ö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.Selection
Dim 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.Delete

selectRegion.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:
MSDN Online Visio Development Center

Özellikler

Makale numarası: 291195 - Last Review: 2 Şubat 2014 Pazar - Gözden geçirme: 2.1
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Visio 2000 Standard Edition
  • Microsoft Visio 2000 Professional Edition
  • Microsoft Visio 2000 Technical Edition
  • Microsoft Visio 2000 Enterprise Edition
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbhowto KB291195 KbMttr
Machine-translated Article
Ö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

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com