Hallo,
ich hoffe ihr könnt mir etwas weiterhelfen, bin nämlich bereits am verzweifeln.
Ich möchte in Visio über VBA Abfrage automatisch eine Zeichnung generieren lassen.
Prinzipiell sollen nachher keine Beschränkungen vorliegen (wie Beispielsweise "nur " für Quadrate.
Das ganze soll dann für ein Rechteck so ablaufen, dass ich zuerst gefragt werde wie viele Seiten dafür benötigt werden (Eingabe "4"). Dann soll für jede Wand die Länge und der Winkel abgefragt werden. Da bei richtiger Eingabe der Daten der Start und End-Punkt nach 4 Seiten identisch ist, endet das Programm.
Soweit zumindest in der Theorie. Bisher bin ich aber nur bis zur Eingabe deer Länge gekommen. Der Winkel und die Start/End-Abfrage bereitet mir Probleme.
Mein Code sieht bisher so aus:
Sub EingabeAnzahlWaende()
Wandanzahl = InputBox("Bitte die Gesamtanzahl an Außenwänden eingeben." & vbCr & "Beispielsweise hat ein Quatdrat 4 Außenwände.")
If Wandanzahl < 3 Then
MsgBox "Ein Gebäude muss aus mindestens 3 Wänden bestehen!" & vbCr & "Bitte das Programm neu starten!"
End If
For j = 1 To Wandanzahl
Application.ActiveWindow.Page.DrawLine 0, 0, 0, 0
Dim l As Integer
l = InputBox("Wie lang ist die " & j & ".Wand? [mm]")
l = l + 0.2032
Dim LaengeWand As String
LaengeWand = l & "mm"
Application.ActiveWindow.Page.Shapes.ItemFromID(j).CellsSRC(visSectionObject, visRowXForm1D, vis1DEndY).FormulaU = LaengeWand
Next j
End Sub