- #1
K
Klexy_16
Mitglied
Themenersteller
- Dabei seit
- 16.06.2014
- Beiträge
- 6
- Reaktionspunkte
- 0
Moin!
Ich hab 2 Dateien geöffnet. In einer hab ich ein Textfeld. Das Textfeld ist markiert. Ich will es transparent und mit fettem rotem Rand haben.
In der Normal.dot steht folgendes und wird mit einem Button in der Symbolleiste aufgerufen:
Sub Normal_Rahmen_rot_Fläche_transparent()
Application.Run §Rahmen_rot_Fläche_transparent§
End Sub
Anführungszeichen hab ich durch Paragraphenzeichen ersetzt, weil Anführungszeichen hier im Forum nicht dargestellt werden - warum auch immer.
In der anderen Datei (kann eine dot oder eine doc-Datei sein - ist mir egal) ist das eigentliche Makro hinterlegt, das mit Application.Run angesprochen werden soll:
Sub Rahmen_rot_Fläche_transparent()
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 1.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub
Funktioniert aber nicht.
Warum der ganze Zinnober?
Jeder in der Firma hat die Aufrufe in seiner lokalen Normal.dot. Wenn ich das hinterlegte Makro ändern will, muss ich an allen Rechnern die Normal.dot austauschen und das ist lästig. Also wird das eigentliche Makro in eine Datei aufs Netzlaufwerk gelegt und kann dort zentral und für alle geändert werden. Die Zentraldatei wird dann von jedem Makro erst aufgerufen und danach wieder geschlossen. Das hab ich jetzt nicht dargestellt, denn das funktioniert einwandfrei. Nur der Application.Run-Aufruf nicht.
In Excel mach ich das genauso und hab keine Probleme damit.
Jemand einen Tip? Google lässt mich hängen.
Ich hab 2 Dateien geöffnet. In einer hab ich ein Textfeld. Das Textfeld ist markiert. Ich will es transparent und mit fettem rotem Rand haben.
In der Normal.dot steht folgendes und wird mit einem Button in der Symbolleiste aufgerufen:
Sub Normal_Rahmen_rot_Fläche_transparent()
Application.Run §Rahmen_rot_Fläche_transparent§
End Sub
Anführungszeichen hab ich durch Paragraphenzeichen ersetzt, weil Anführungszeichen hier im Forum nicht dargestellt werden - warum auch immer.
In der anderen Datei (kann eine dot oder eine doc-Datei sein - ist mir egal) ist das eigentliche Makro hinterlegt, das mit Application.Run angesprochen werden soll:
Sub Rahmen_rot_Fläche_transparent()
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 1.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub
Funktioniert aber nicht.
Warum der ganze Zinnober?
Jeder in der Firma hat die Aufrufe in seiner lokalen Normal.dot. Wenn ich das hinterlegte Makro ändern will, muss ich an allen Rechnern die Normal.dot austauschen und das ist lästig. Also wird das eigentliche Makro in eine Datei aufs Netzlaufwerk gelegt und kann dort zentral und für alle geändert werden. Die Zentraldatei wird dann von jedem Makro erst aufgerufen und danach wieder geschlossen. Das hab ich jetzt nicht dargestellt, denn das funktioniert einwandfrei. Nur der Application.Run-Aufruf nicht.
In Excel mach ich das genauso und hab keine Probleme damit.
Jemand einen Tip? Google lässt mich hängen.
Zuletzt bearbeitet: