Thema Datum  Von Nutzer Rating
Antwort
15.10.2015 16:10:00 RnB
NotSolved
Blau Mehrere .svg Dateien in Visio importieren
19.10.2015 09:15:32 RnB
NotSolved
20.10.2015 10:36:04 Gast24048
Solved

Ansicht des Beitrags:
Von:
RnB
Datum:
19.10.2015 09:15:32
Views:
856
Rating: Antwort:
  Ja
Thema:
Mehrere .svg Dateien in Visio importieren

Hallo nochmals

Bis anhin konnte mir leider noch niemand helfen. Ich habe nun versucht, das selber zu machen. Allerdings scheitere ich an der Auswahl meherer Dateien. Im momentanen Zustand wir nur 1 Datei namens "adjust.svg" imortiert u. verkleinert. Hat mir jemand einen Tipp, wie ich das Script anweisen kann mit allen Dateien im SVG Ordner auf diese Weise zu verfahren? Hier das Script, wie es momentan aussieht:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub Icons2Visio()
 
'
 
' Mehrere SVGs importieren
 
'
 
  
 
    Dim UndoScopeID1 As Long
 
    UndoScopeID1 = Application.BeginUndoScope("Importieren")
 
    Application.ActiveWindow.Page.Import "C:\Users\rnb\Pictures\ Icons_SVG\adjust.svg"
 
    Application.EndUndoScope UndoScopeID1, True
 
  
 
    Dim UndoScopeID2 As Long
 
    UndoScopeID2 = Application.BeginUndoScope("Füllbereichseigenschaften")
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(255,255,255))"
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).Shapes.ItemFromID(2).CellsSRC(visSectionObject, visRowFill, visFillForegnd).FormulaU = "THEMEGUARD(RGB(255,255,255))"
 
    Application.EndUndoScope UndoScopeID2, True
 
  
 
    Application.ActiveWindow.SetViewRect -11.777778, 18.527778, 37.861111, 21.333333
 
  
 
    Application.ActiveWindow.SetViewRect -31.166667, 33.277778, 75.722222, 42.666667
 
  
 
    Dim UndoScopeID3 As Long
 
    UndoScopeID3 = Application.BeginUndoScope("Objektgröße ändern")
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinX).FormulaU = "91.604166666667 p"
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormPinY).FormulaU = "-12.479166666667 p"
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormWidth).FormulaU = "1.2083333333333 p"
 
    Application.ActiveWindow.Page.Shapes.ItemFromID(1).CellsSRC(visSectionObject, visRowXFormOut, visXFormHeight).FormulaU = "1.2083333333333 p"
 
    Application.EndUndoScope UndoScopeID3, True
 
  
 
    Dim UndoScopeID4 As Long
 
    UndoScopeID4 = Application.BeginUndoScope("Auf Schablone ablegen")
 
    ActiveWindow.DeselectAll
 
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(1), visSelect
 
    Dim vsoSelection1 As Visio.Selection
 
    Set vsoSelection1 = ActiveWindow.Selection
 
    Dim vsoDoc1 As Visio.Document
 
    Set vsoDoc1 = Application.Documents.Item("Schablone5.vss")
 
    vsoDoc1.Drop vsoSelection1, 0#, 0#
 
    vsoSelection1.Delete
 
    Application.EndUndoScope UndoScopeID4, True
 
  
 
End Sub

Vielen Dank für eure Hilfe.

Beste Grüsse

rnb


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.10.2015 16:10:00 RnB
NotSolved
Blau Mehrere .svg Dateien in Visio importieren
19.10.2015 09:15:32 RnB
NotSolved
20.10.2015 10:36:04 Gast24048
Solved