Office: (Office 365) ActiveX wird abgeschaltet

Hallo zusammen, bei uns in der Arbeit wird demnächst ActiveX auf dem Arbeitsblatt komplett abgeschaltet. (also so, dass wir das auch nicht wieder herholen können)
Gibt es Alternativen zu z.B. Listbox, Combobox etc. die auch formatierbar sind?
Die Formularsteuerelemente gehen nocht, aber die sind ja quasi gar nicht formatierbar. (mir würde es fast schon reichen, die Schriftgröße da drin anzupassen!)
Danke.

 

Moin czil,

auch wenn es ein komplettes Umdenken erfordert: Mit Shapes lassen sich in Kombination mit den Zellen eines Sheets wunderbare Dinge realisieren. Position, Formatierung, Trigger ...
Unabhängig davon: Alle Controls in UserForms bleiben auch weiterhin zugänglich. Nur die in Sheets eingebetteten ActiveXe sterben.
Notfalls lassen sich die Xe aber noch im TrustCenter reaktivieren, was aber als unsicher gilt.

Mit welcher Version werkelt Ihr denn?

Grüße

 

Bei uns wird ab Version 25.04 deaktiviert.
Ohne Reaktivierungsmöglichkeit .
Grafiken sind schon ein relativ guter Ersatz, aber können nicht alles. Listboxen, Comboboxen und ähnliches aktiv zu nutzendes Zeug, ist halt immer mit winziger Schrift und grau.
Hatte mal wo gesehen, dass man eine UFO ohne Schließkreuz und sonstiger Deko programmieren kann, weiß aber nicht mehr wo.

 

Moin chill*

Wie eine USF ohne Headline geht, zeigt der Code (in die USF). Allerdings bedeutet das auch, dass Du das Ding ohne aufwändigen Mouse-Event nicht mehr verschieben kannst und einen Close-Button brauchst.

Code:

' API-Deklarationen
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const GWL_STYLE = -16
Private Const WS_CAPTION = &HC00000
Private hWndForm As Long

' Titelleiste entfernen beim Initialisieren
Private Sub UserForm_Initialize()
    hWndForm = FindWindow("ThunderDFrame", Me.Caption)
    If hWndForm <> 0 Then
        Dim lngStyle As Long
        lngStyle = GetWindowLong(hWndForm, GWL_STYLE)
        lngStyle = lngStyle And Not WS_CAPTION
        SetWindowLong hWndForm, GWL_STYLE, lngStyle
        DrawMenuBar hWndForm
    End If
End Sub

Was meinst du mit winziger Schrift und grau? Mit etwas Liebe, lässt sich ein Shape auch mit getoggelten Farben und x verschiedenen Schriftgrößen in einem Wort formatieren.

Grüße

*ich schreib das jetzt mal so, wie ich's aussprechen würde

 

Moin!
Der TE möchte ja einen Ersatz für Combo- und Listboxes mit größerer Schrift.
Ginge mit einem dirty Trick...
Nimm kleinere Schriftgrößen in den Zellen und setze den Zoom auf 150%.
Die Schrift in den Boxes der Steuerelenente ist gleich um die Hälfte größer.
Wenn die nun größere Zeilen- und Spaltenbeschrifung stört, kann man die ausblenden.

Gruß Ralf

 

Hallo,

naja, wenn auf dem Blatt nix mehr zum Thema Active-X Elemente geht, kann man auch die Möglichkeit via Ribbon-UI in Betracht ziehen.
Da legt man sich einfach einen Tab für den Kram an, baut im XML die benötigten Elemente ein und es gibt kein Problem mit der Lesbarkeit.

Man muss halt sauber programmieren, damit da bei Fehlern nichts einstürzt.
Anleitungen zu diesem Thema gibts im Netz wie Sand am Meer.

Gruß Uwe

 

hört sich so einfach an. :) tatsächlich kann ich die Knöpfchen im Ribbon jetzt auch nicht so arg gut lesen. Vielleicht kann man einen Tab über die gesamte Breite ziehen und dann Listboxen, Comboboxen einbauen, so richtig warm bin ich mit der Programmierung von Ribbons nie geworden. Wäre zu überlegen. Allerdings ist der Aufwand dafür doch enorm, im Vergleich zu den ActiveX-Elementen.

ist eine Ãœberlegung wert, zumindest nutzbar, wenn man nicht grad am 12'' arbeitet. :)
Schade, dass die Formularsteuerelemente nicht so konfigurierbar sind. Wird aber vermutlich bei meinen Dateien, wo ich nicht auf die Listbox/Combobox verzichten möchte, auf UFOn rauslaufen. Mit Rahmen. Die ohne (danke @d'r Bastler ), sind mir dann doch zu tückisch, wenn ich mal unterwegs bin. Kann man ja nicht verschieben. Haben ja auch keinen Henkel.