Office: (Office 2007) Rahmen Vorlage erstellen

HeinzPSX · 12. Januar 2021

von myfake

Ich habe heute Nachmittag einmal versucht das Ganze als Symbolleiste einzubinden. Leider ist es mir bisher noch nicht gelungen *frown.gif* (wollte aber ggf. morgen weiter daran testen). Mal schauen, ob es dann klappt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das wäre echt superklasse.

Vielen Dank für die Mühe!

myfake · 5. April 2007

Hallo Heinz,

leider habe ich schlechte Nachrichten - ich bekomme es nicht hin, es einzubinden. *frown.gif*

Ich hoffe sehr, dass jemand anders noch die entscheidende Idee hat und es umsetzt! (Bin ich jetzt selber drauf gespannt)

Sorry nochmals.

cu
myfake

chris-kaiser · 5. April 2007

hi myfake
wenn du es versuchen willst
siehe meinen Beitrag >60000 da habe ich eine Schaltfläche in einem Add-in

in der lezten Zip ist es
Kennwort ist
msoffice
da kannst Du Dir den Code in Ruhe ansehen (im Modul, und relevante Teile gibt es auch in "dieseArbeitsmappe"

Ích komme erst am Abend wieder dazu was zu schreiben
heute ist wieder Brötchen verdienen angesagt *Smilie

myfake · 5. April 2007

Hallo Chris,

habe es gerade runtergeladen (die Save_Liste.ZIP) - aber dort wird doch ein Menüpunkt eingebunden und keine Symbolleiste!?! Oder habe ich etwas übersehen? *confused.gif*

[Edit]
Bislang habe ich diesen Code hier:

Code:

'hiermit wird die Symbolleiste generiert
Sub Rahmen()

Dim SB As CommandBar

On Error Resume Next

Set SB = CommandBars.Add(Name:="RahmenEinfügen")

With SB
With .Controls.Add(Type:=msoControlButton)
.Caption = "Rahmen"
.FaceId = 56
.OnAction = "RahmenEinfügen"
End With

.Visible = True

End With

Set SB = Nothing

End Sub

'das ist die "Rahmensetzroutine"
Sub RahmenEinfügen()

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

End Sub

'Code zum Löschen der Symbolleiste
Sub LöschenRahmen()
On Error Resume Next
CommandBars("RahmenEinfügen").Delete
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hiermit wird zwar eine Symbolleiste generiert, aber nur, wenn das Makro manuell gestartet wird. Als Add-In bekomme ich es aber leider nicht verpackt. *frown.gif* D.h., selbst wenn ich diesen Code in eine leere Mappe kopiere, diese dann als "xla" abspeichere und, danach das Add-In einbinde erscheint die Symbolleiste beim Excelneustart nicht *frown.gif*
[/Edit]

cu
myfake

chris-kaiser · 5. April 2007

hiho

hier das addy als ZIP
mal schauen ob es so passt

myfake · 5. April 2007

Hallo Chris,

das ist mal wieder *top ! Herzlichen Dank dafür. Es ist genau so, wie ich es mir vorgestellt habe (jetzt muß es nur noch Heinz passen, dann ist es perfekt *Smilie ).

cu
myfake

HeinzPSX · 5. April 2007

Das ist ja wohl Saugeil! *boah

Vielen Dank!

Eine letzte Frage, wenn ich Excel starte kommt der Button immer in der Mitte. Kann ich das auch so einstellen das er automatisch oben in der Leiste ist?

chris-kaiser · 5. April 2007

Hallo Dennis

ich habe mal die Leiste neben der Formatleiste plaziert *mrcool

HeinzPSX · 5. April 2007

Hammer!

Vielen Vielen Dank!!!

HeinzPSX · 29. April 2013

Hallo an Alle,

ich war mit dem Add In Jahrelang sehr glücklich, leider funktioniert es nicht mit Excel 2010.

Könnte mir das jemand anpassen?

Office: (Office 2007) Rahmen Vorlage erstellen

Rahmen Vorlage erstellen

Rahmen Vorlage erstellen

Rahmen Vorlage erstellen

Rahmen Vorlage erstellen

Rahmen Vorlage erstellen - Similar Threads - Rahmen Vorlage erstellen

Adressbox für Fenstercouvert positionieren

Rahmen in jeder neuen Leerzeile

Excel Registrierkarte Start Pfeil Rahmen

Bekomme Rahmen im Druck nicht weg

Unterschiedliche Liniendicken Gitter

Word -> PDF : weiße Linien (Rahmen?)

Rahmen um Bilder