Office: VBA - "Darstellungsprobleme"

Hallo allerseits,

mit Excel kenne ich mich ja nun ein bisschen aus, aber leider habe ich überhaupt keine Ahnung von VBA. Kann mir einer von euch helfen?

Mit dem folgenden VBA-Code sollen Pfeile in eine Deutschlandkarte gesetzt werden. Dazu trägt man in eine Tabelle eine Postleitzahl ein, Excel schlägt diese PLZ in einer anderen Liste nach, auf der Längen- und Breitengrade zu der PLZ stehen und zu guter Letzt wird - wie gesagt - an der entsprechenden Stelle auf der Deutschlandkarte ein Pfeil gesetzt.

Leider sind die Pfeile riesig. Wie kann ich sie kleiner machen?

Lieber hätte ich aber einfach nur (ganz kleine!) Punkte. Wie kann ich das machen?

Der VBA-Code lautet:

Private Sub cmdDaten_Click()
Dim varPos As Variant
Dim strBlatt As String
Dim strObjekt As String
Dim strBeschriftung As String
Dim strKarte As String
Dim strDummy As String
Dim objZiel As Shape
Dim XTopLeft As Double
Dim YTopLeft As Double
Dim XBottomRight As Double
Dim YBottomRight As Double
Dim x As Double
Dim y As Double
Dim i As Long
Dim colVorhanden As New Collection
Dim objShape As Shape
Dim wsVorher As Worksheet
XTopLeft = Me.Range("E2") 'Längengrad Links oben
YTopLeft = Me.Range("D2") 'Breitengrad Links oben
XBottomRight = Me.Range("F2") 'Längengrad Rechts unten
YBottomRight = Me.Range("C2") 'Breitengrad Rechts unten
strBlatt = Me.Range("A2") 'Kartenblattname
strKarte = Me.Range("B2") 'Name der Karte

colVorhanden.Add strKarte, strKarte
Set wsVorher = ActiveSheet
Worksheets(strBlatt).Activate
On Error Resume Next

For i = 6 To 1325
If Me.Cells(i, 1) <> "" Then
x = Me.Cells(i, 2) 'Längengrad des Objekts
y = Me.Cells(i, 3) 'Breitengrad des Objekts
strBeschriftung = Me.Cells(i, 5) 'Beschriftung des Objekts

'Eindeutigen Objektnamen generieren
strObjekt = "X" & Format(x, "0.000") & Format(y, "0.000")

'Position berechnen
varPos = PositionBerechnen( _
XTopLeft, YTopLeft, _
XBottomRight, YBottomRight, _
strBlatt, strKarte, _
x, y)

If IsArray(varPos) Then

Err.Clear
Set objZiel = Worksheets(strBlatt).Shapes(strObjekt)
If Err.Number <> 0 Then
'Shape erzeugen
Set objZiel = Worksheets(strBlatt).Shapes.AddShape( _
msoShapeRightArrow, 10, 10, 100, 50)
'Namen für Shape vergeben
objZiel.Name = strObjekt
End If

colVorhanden.Add strObjekt, strObjekt
With objZiel

'Objekt beschriften
.TextFrame.Characters.Text = strBeschriftung
'Verschieben und Pfeil auf Ziel setzen
.Left = varPos(1) + .Width / 1
.Top = varPos(2) - .Height * 1
.DrawingObject.ShapeRange.Adjustments.Item(1) = -0.5
.DrawingObject.ShapeRange.Adjustments.Item(2) = 1
End With
End If
End If
Next

For Each objShape In Worksheets(strBlatt).Shapes
'Nicht benötigte Shapes löschen
Err.Clear
strDummy = colVorhanden(objShape.Name)
If Err.Number <> 0 Then objShape.Delete
Next
wsVorher.Activate
End Sub

Vielen Dank und viele Grüße
Fin

 

Hallo Finley,

ich nehme an, dass eine Vergrößerung/Verkleinerung über die beiden Methoden 'ScaleWidth(...)' und 'ScaleHeight(...)' des Shape-Objektes möglich sein müsste:

Code:

'Shape erzeugen
Set objZiel = Worksheets(strBlatt).Shapes.AddShape(msoShapeRightArrow, 10, 10, 100, 50)
objZiel.ScaleHeight 0.1, msoFalse, 1
objZiel.ScaleWidth 0.1, msoFalse, 1
'Namen für Shape vergeben
objZiel.Name = strObjekt

Beide Methoden benötigen 3 Parameter:
der 1. Parameter ist der Vergrößerungs/Verkleinerungsfaktor: in meinem Beispiel 0.1 (Verkleinerung auf 1/10 der Höhe bzw. Breite)
der 2. Parameter: msoFalse bedeutet Vergrößerung des aktuellen Objektes (msoTrue bedeutete: ursprüngliches Objekt).
der 3. Parameter: bezeichnet den Punkt, der bei dieser Vergrößerung/Verkleinerung festgehalten wird: 0 ist die linke obere Ecke, 1 der Mittelpunkt, 2 die rechte untere Ecke des Objektes)

 

Hallo Exl121150,

danke für deine schnelle Antwort. Ich habe deinen Text übernommen, aber das Ergebnis ist etwas überraschend: Einige Pfeile sind groß dargestellt, andere klein.

Weißt Du/wisst Ihr vielleicht:

Gibt es irgendwo eine Einführung zur Verwendung von Shapes?

Was ist der Code für (kleine) Punkte als "Shape"?

Vielen Dank und viele Grüße
Fin

 

Hallo Finley,
eine Beschreibung des Shape-Objektes und aller damit zusammenhängenden Objekte ist in der Excel-Hilfe enthalten.
Gibt man zB. folgende Deklaration ein: Dim Shp As Shape, stellt den Cursor auf das Wort 'Shape', drückt die Taste F1, dann findet man die Beschreibung dazu und jede Menge Links.

Du hast zwar Deine Excel-Version nicht angegeben, aber nachfolgend eine Kurzeinführung ins 'Shape'-Objekt mit seinen Methoden und Eigenschaften, wie sie in der Excel2007-Hilfe enthalten ist.
---------------------------------------------
Excel-Entwicklerreferenz
Shape-Objekt
Stellt ein Objekt in der Zeichnungsebene dar, z. B. eine AutoForm, ein Freihandobjekt, ein OLE-Objekt oder ein Bild.
Anmerkungen


Das Shape-Objekt ist ein Element der Shapes-Auflistung. Die Shapes-Auflistung enthält alle Formen in einer Arbeitsmappe.

Hinweis
Es sind drei Objekte verfügbar, die Formen darstellen: Die Shapes-Auflistung stellt alle Formen in einer Arbeitsmappe dar. Die ShapeRange-Auflistung stellt eine angegebene Teilmenge der Formen in einer Arbeitsmappe dar (beispielsweise kann ein ShapeRange-Objekt die erste und die vierte Form oder alle markierten Formen in einer Arbeitsmappe darstellen). Das Shape-Objekt stellt eine einzelne Form auf einem Arbeitsblatt dar. Wenn Sie mit mehreren Formen gleichzeitig oder mit Formen innerhalb einer Markierung arbeiten möchten, verwenden Sie eine ShapeRange-Auflistung.

Verwenden des Shape-Objekts

Zurückgeben der Formen, die den Enden einer Verbindung zugeordnet sind
Wenn ein Shape-Objekt zurückgegeben werden soll, das eine der durch eine Verbindung zugeordneten Formen darstellt, verwenden Sie die Eigenschaft BeginConnectedShape oder EndConnectedShape.

Zurückgeben eines neu erstellten Freihandobjekts
Verwenden Sie die Methoden BuildFreeform und AddNodes, um die Geometrie eines neuen Freihandobjekts zu definieren, und die ConvertToShape-Methode, um das Freihandobjekt zu erstellen und das Shape-Objekt, das es darstellt, zurückzugeben.

Zurückgeben einer Form aus einer Gruppe
Verwenden Sie GroupItems(index), um ein Shape-Objekt zurückzugeben, das eine einzelne Form aus einer Gruppe darstellt. Dabei stellt index den Namen der Form oder die Indexnummer innerhalb der Gruppe dar.

Zurückgeben einer neu gebildeten Gruppe von Formen
Verwenden Sie die Methode Group oder Regroup, um einen Formenbereich zu gruppieren und ein einzelnes Shape-Objekt zurückzugeben, das die neu gebildete Gruppe darstellt. Nach dem Bilden einer Gruppe können Sie mit dieser auf die gleiche Weise arbeiten wie mit jeder anderen Form.

Zurückgeben einer bestehenden Form
Verwenden Sie Shapes(index), um ein Shape-Objekt zurückzugeben, das die eine Form darstellt. Dabei entspricht index dem Namen der Form oder der Indexnummer.

Zurückgeben einer Form innerhalb der Markierung
Verwenden Sie Selection.ShapeRange(Index), wobei Index der Name oder die Indexnummer der Form ist, um ein Shape-Objekt zurückzugeben, das eine Form innerhalb der Markierung darstellt.

Beispiel

Im folgenden Beispiel werden in myDocument die erste Form und die Form Rectangle 1 horizontal gekippt.

Visual Basic für Applikationen
Set myDocument = Worksheets(1)
myDocument.Shapes(1).Flip msoFlipHorizontal
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

Jeder Form wird ein Standardname zugewiesen, wenn Sie sie der Shapes-Auflistung hinzufügen. Wenn Sie der Form einen aussagekräftigeren Namen geben möchten, verwenden Sie die NameName-Eigenschaft. Im folgenden Beispiel wird in myDocument ein Rechteck eingefügt. Ihm werden der Name "Red Square" sowie Vordergrundfarbe und Linienart zugewiesen.

Visual Basic für Applikationen
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With

Im folgenden Beispiel wird davon ausgegangen, dass mindestens eine Form markiert ist, und die Füllung für die erste Form der Markierung im aktiven Fenster festgelegt.

Visual Basic für Applikationen
ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = _
RGB(255, 0, 0)

Shape-Objektmember

Stellt ein Objekt in der Zeichnungsebene dar, z. B. eine AutoForm, ein Freihandobjekt, ein OLE-Objekt oder ein Bild.

Methoden

Name Beschreibung
Apply Wird auf die angegebene Formformatierung angewendet, die mithilfe der PickUp-Methode kopiert wurde.
Copy Kopiert das Objekt in die Zwischenablage.
CopyPicture Kopiert das ausgewählte Objekt als Bild in die Zwischenablage.
Cut Schneidet das Objekt aus und speichert es in der Zwischenablage.
Delete Löscht das Objekt.
Duplicate Dupliziert das Objekt und gibt einen Bezug auf die neue Kopie zurück.
Flip Kippt die angegebene Form um ihre horizontale oder vertikale Achse.
IncrementLeft Verschiebt die angegebene Form in horizontaler Richtung um den angegebenen Wert in Punkt.
IncrementRotation Ändert die Drehung der angegebenen Form um die Z-Achse um die angegebene Gradzahl. Verwenden Sie die Rotation-Eigenschaft, um die absolute Drehung der Form festzulegen.
IncrementTop Verschiebt die angegebene Form in vertikaler Richtung um den angegebenen Wert in Punkt.
PickUp Kopiert die Formatierung der angegebenen Form. Verwenden Sie die Apply-Methode, um die kopierte Formatierung auf eine andere Form anzuwenden.
RerouteConnections Diese Methode erstellt alle Verbindungen neu, die der angegebenen Form angefügt sind. Handelt es sich bei der angegebenen Form um eine Verbindung, wird sie neu erstellt.
ScaleHeight Skaliert die Höhe der Form um einen angegebenen Faktor. Bei Bildern und OLE-Objekten können Sie angeben, ob die Form relativ zu ihrer ursprünglichen oder ihrer aktuellen Größe skaliert werden soll. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Höhe skaliert.
ScaleWidth Skaliert die Breite der Form um einen angegebenen Faktor. Bei Bildern und OLE-Objekten können Sie angeben, ob die Form relativ zu ihrer ursprünglichen oder ihrer aktuellen Größe skaliert werden soll. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Breite skaliert.
Select Markiert das Objekt.
SetShapesDefaultProperties Übernimmt die Formatierung der angegebenen Form als Standardformatierung für die Form.
Ungroup Hebt die Gruppierung aller gruppierten Formen in der angegebenen Form oder dem Formbereich auf. Löst Bilder und OLE-Objekte in der angegebenen Form oder dem Formbereich auf.
ZOrder Verschiebt die angegebene Form vor oder hinter andere Formen der Auflistung (d. h. die Position der Form in der Z-Reihenfolge wird geändert).

Eigenschaften

Name Beschreibung
Adjustments Gibt ein Adjustments-Objekt zurück, das Anpassungswerte für alle Anpassungen in der angegebenen Form enthält. Wird auf jedes Shape-Objekt angewendet, das eine AutoForm, eine WordArt-Grafik oder eine Verbindung darstellt.
AlternativeText Gibt die beschreibende (alternative) Textzeichenfolge für ein Shape-Objekt zurück, wenn das Objekt in einer Webseite gespeichert wird, oder legt diese fest. String-Wert mit Lese-/Schreibzugriff.
Application Ohne Objektkennzeichner gibt diese Eigenschaft ein Application-Objekt zurück, das die Anwendung Microsoft Excel darstellt. Mit Objektkennzeichner hingegen gibt diese Eigenschaft ein Application-Objekt zurück, das die Erstellungsanwendung des angegebenen Objekts darstellt. (Sie können diese Eigenschaft mit einem OLE-Automatisierungsobjekt verwenden, um die Anwendung dieses Objekts zurückzugeben.) Schreibgeschützt.
AutoShapeType Gibt den Formtyp des angegebenen Shape-Objekts oder ShapeRange-Objekts zurück, das eine andere AutoForm als eine Linie, Freihandzeichnung oder Verbindung darstellen muss, oder legt diesen fest. MsoAutoShapeType-Wert mit Lese-/Schreibzugriff.
BackgroundStyle Gibt das Hintergrundformat zurück oder legt es fest. MsoBackgroundStyleIndex-Wert mit Lese-/Schreibzugriff.
BlackWhiteMode Gibt einen Wert zurück, der angibt, wie die angegebene Form angezeigt wird, wenn die Präsentation im Schwarzweißmodus betrachtet wird, oder legt diesen fest. MsoBlackWhiteMode-Wert mit Lese-/Schreibzugriff.
BottomRightCell Gibt ein Range-Objekt zurück, das die Zelle darstellt, die sich unterhalb der unteren rechten Ecke des Objekts befindet. Schreibgeschützt.
Callout Gibt ein CalloutFormat-Objekt zurück, das Formatierungseigenschaften für die Legende für die angegebene Form enthält. Wird auf Shape-Objekte angewendet, die Legenden mit Linien darstellen. Schreibgeschützt.
Chart Gibt ein Chart-Objekt zurück, das das in der Form enthaltene Diagramm darstellt. Schreibgeschützt.
Child Gibt msoTrue zurück, wenn die angegebene Form eine untergeordnete Form ist oder alle Formen in einem Formenbereich untergeordnete Formen derselben übergeordneten Form sind. Schreibgeschützter MsoTriState-Wert.
ConnectionSiteCount Gibt die Anzahl der Verbindungspunkte der angegebenen Form zurück. Schreibgeschützter Long-Wert.
Connector True, wenn es sich bei der angegebenen Form um eine Verbindung handelt. Schreibgeschützter MsoTriState-Wert.
ConnectorFormat Gibt ein ConnectorFormat-Objekt zurück, das Formatierungseigenschaften für eine Verbindung enthält. Wird auf Shape-Objekte angewendet, die Verbindungen darstellen. Schreibgeschützt.
ControlFormat Gibt ein ControlFormat-Objekt zurück, das Eigenschaften von Microsoft Excel-Steuerelementen enthält. Schreibgeschützt.
Fill Gibt ein FillFormat-Objekt für eine angegebene Form oder ein ChartFillFormat-Objekt für ein angegebenes Diagramm zurück, das Füllformateigenschaften der angegebenen Form oder des angegebenen Diagramms darstellt. Schreibgeschützt.
FormControlType Gibt den Typ eines Microsoft Excel-Steuerelements zurück. Schreibgeschützter XlFormControl-Wert.
Glow Gibt ein GlowFormat-Objekt für eine angegebene Form zurück, das die Leuchtformateigenschaften für die Form enthält. Schreibgeschützt.
GroupItems Gibt ein GroupShapes-Objekt zurück, das die einzelnen Formen in der angegebenen Gruppe darstellt. Verwenden Sie die Item-Methode des GroupShapes-Objekts, um eine einzelne Form aus der Gruppe zurückzugeben. Gültig für Shape-Objekte, die gruppierte Formen darstellen. Schreibgeschützt.
HasChart Gibt zurück, ob eine Form ein Diagramm enthält. Schreibgeschützter MsoTriState-Wert.
Height Gibt einen Single-Wert zurück, der die Höhe des Objekts in Punkt darstellt, oder legt diesen fest.
HorizontalFlip True, wenn die angegebene Form um die horizontale Achse gekippt ist. Schreibgeschützter MsoTriState-Wert.
Hyperlink Gibt ein Hyperlink-Objekt zurück, das den Hyperlink der Form darstellt.
ID Gibt einen Long-Wert zurück, der den Typ des angegebenen Objekts darstellt.
Left Gibt einen Single-Wert zurück, der den Abstand (in Punkt) von der linken Seite des Objekts zum linken Rand der Spalte A (in einem Arbeitsblatt) oder zur linken Seite des Diagrammbereichs (in einem Diagramm) darstellt, oder legt diesen fest.
Line Gibt ein LineFormat-Objekt zurück, das Linienformatierungseigenschaften für die angegebene Form enthält. (Bei einer Linie stellt das LineFormat-Objekt die Linie selbst dar; bei einer Form mit Rahmen stellt das LineFormat-Objekt den Rahmen dar.) Schreibgeschützt.
LinkFormat Gibt ein LinkFormat-Objekt zurück, das die Eigenschaften der verknüpften OLE-Objekte enthält. Schreibgeschützt.
LockAspectRatio True, wenn für die angegebene Form bei einer Größenänderung deren ursprüngliche Proportionen beibehalten werden. False, wenn Sie bei einer Größenänderung die Höhe und Breite der Form unabhängig voneinander ändern können. MsoTriState-Wert mit Lese-/Schreibzugriff.
Locked Gibt einen Boolean-Wert zurück, der angibt, ob das Objekt gesperrt ist, oder legt diesen fest.
Name Gibt einen String-Wert zurück, der den Namen des Objekts darstellt, oder legt diesen fest.
Nodes Gibt eine ShapeNodes-Auflistung zurück, die die geometrische Beschreibung der angegebenen Form darstellt.
OLEFormat Gibt ein OLEFormat-Objekt zurück, das OLE-Objekteigenschaften enthält. Schreibgeschützt.
OnAction Gibt den Namen des Makros zurück, das ausgeführt wird, wenn auf das angegebene Objekt geklickt wird, oder legt den Namen fest. String-Wert mit Lese-/Schreibzugriff.
Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück. Schreibgeschützt.
ParentGroup Gibt ein Shape-Objekt zurück, das die gemeinsame Form des übergeordneten Objekts einer untergeordneten Form oder eines Bereichs aus untergeordneten Formen darstellt.
PictureFormat Gibt ein PictureFormat-Objekt zurück, das Bildformatierungseigenschaften der angegebenen Form enthält. Wird auf Shape-Objekte angewendet, die Bilder oder OLE-Objekte darstellen. Schreibgeschützt.
Placement Gibt einen XlPlacement-Wert zurück, der die Art darstellt, in der das Objekt an die Zellen darunter angefügt ist, oder legt diesen fest.
Reflection Gibt ein ReflectionFormat-Objekt für eine angegebene Form zurück, das die Spiegelungsformateigenschaften für die Form enthält. Schreibgeschützt.
Rotation Gibt die Drehung der Form in Grad zurück oder legt diese fest. Single-Wert mit Lese-/Schreibzugriff.
Script Gibt das Script-Objekt zurück, das einen Skript- oder Codeblock auf der angegebenen Webseite darstellt. Enthält die Seite kein Skript, wird kein Wert zurückgegeben.
Shadow Gibt ein schreibgeschütztes ShadowFormat-Objekt zurück, das Schattenformatierungseigenschaften für die angegebene Form bzw. die Formen enthält.
ShapeStyle Gibt ein MsoShapeStyleIndex-Objekt zurück, das die Formenart des Formbereichs darstellt, oder legt es fest. Lese-/Schreibzugriff.
SoftEdge Gibt ein SoftEdgeFormat-Objekt für eine angegebene Form zurück, die Formatierungseigenschaften für weiche Kanten enthält. Schreibgeschützt.
TextEffect Gibt ein TextEffectFormat-Objekt zurück, das Formatierungseigenschaften des Texteffekts für die angegebene Form enthält. Schreibgeschützt.
TextFrame Gibt ein TextFrame-Objekt zurück, das die Ausrichtungs- und Verankerungseigenschaften der angegebenen Form enthält. Schreibgeschützt.
TextFrame2 Gibt ein Textframe2-Objekt zurück, das die Textformatierung für die angegebene Form enthält. Schreibgeschützt.
ThreeD Gibt ein ThreeDFormat-Objekt zurück, das Formateigenschaften des 3D-Effekts der angegebenen Form enthält. Schreibgeschützt.
Top Gibt einen Single-Wert zurück, der den Abstand (in Punkt) vom oberen Rand der obersten Form des Formbereichs zum oberen Rand des Arbeitsblatts darstellt, oder legt diesen fest.
TopLeftCell Gibt ein Range-Objekt zurück, das die Zelle darstellt, die unter der oberen linken Ecke des angegebenen Objekts liegt. Schreibgeschützt.
Type Gibt einen MsoShapeType-Wert zurück, der den Typ der Form darstellt, oder legt diesen Wert fest.
VerticalFlip True, wenn die angegebene Form um die vertikale Achse gekippt wurde. Schreibgeschützter MsoTriState-Wert.
Vertices Gibt die Koordinaten der Scheitelpunkte der angegebenen Freihandzeichnung (und Steuerpunkte für Bézier-Kurven) als Datenreihe von Koordinatenpaaren zurück. Sie können das von dieser Eigenschaft zurückgegebene Array als Argument für die Methoden AddCurve oder AddPolyLine verwenden. Schreibgeschützter Variant-Wert.
Visible Gibt einen MsoTriState-Wert zurück, der bestimmt, ob das Objekt sichtbar ist, oder legt diesen Wert fest. Lese-­/Schreibzugriff.
Width Gibt einen Single-Wert zurück, der die Breite des Objekts in Punkt darstellt, oder legt diesen Wert fest.
ZOrderPosition Gibt die Position der angegebenen Form in der Z-Reihenfolge zurück. Schreibgeschützter Long-Wert.

 

Hallo Exl121150,

danke für die Erläuterungen. Dann steige ich da jetzt mal ein!

Mein Excel-Dokument hätte ich hier gerne anghängt, aber es scheint mir mit 1,1 MB (gezippt) zu groß zu sein. Jedenfalls lässt es sich nicht hochladen.

Viele Grüße und einen schönen Sonntag noch
Fin