Comment arrêter les objets ActiveX changer automatiquement la taille dans le bureau?

Ce fil traite d'un problème que j'ai eu avec les objets ActiveX dans une feuille de calcul Excel. C'est un gâchis de lire et de finalement ne pas avoir une réponse cohérente.

Le problème est de 100% traçabilité:

Ouvrir un classeur avec des objets ActiveX dans la feuille de calcul lors de l'utilisation d'une station d'accueil
Débranchez la machine de la station d'accueil, déclenchant un changement de résolution (il y a d'autres causes trop, le mien est avec une station d'accueil, il semble modification de la résolution des causes de ce)
Cliquez sur un contrôle ActiveX - ils immédiatement de les redimensionner et de la police des changements de taille. La fontsize le changement n'est PAS une fonction de la .Font.Size paramètre, mais quelque chose qui ne peut pas être modifié une fois que le problème se produit, autre que de continuellement accroître la fontsize

La seule apparence d'autorité solution implique un patch MS (c'était un "correctif" il y a plusieurs années, bien que, de sorte qu'il ne semble pas pratique pour un déploiement complet) et des modifications de registre, ce qui n'est pas pratique pour mon cas d'utilisation.

Je suis à la recherche d'un moyen de soit:

Empêcher ce changement de produit
Trouver le meilleur travail autour de

Il y a un manque d'information officielle sur ce problème en ligne. J'ai l'intention de poster mon travail autour, cependant, il n'est même pas proche de l'idéal et je préfère de beaucoup une meilleure solution.

source d'informationauteur Elysian Fields

Mon travail est environ de programmation pour itérer sur tous les objets OLE sur la feuille* et écrire du code pour le débogueur, puis d'inclure un bouton, fondamentalement, "redimensionner des objets" sur la feuille avec les instructions sur pourquoi ce problème est survenu.

Cette méthode permettra de générer le code de conduite bouton.

Il ne sera pas automatiquement mise à jour cependant - c'est un instantané et devrait seulement être utilisé immédiatement avant le déploiement d'une application (si les utilisateurs finaux vont avoir la fonctionnalité du bouton).

La séquence devient alors:

Exécuter du code généré avec la méthode suivante
Enregistrer un classeur immédiatement - ce qui n'empêche PAS les modifications de la police de continuer à se produire
Rouvrir le classeur et le problème est "résolu"

Private Sub printAllActiveXSizeInformation()
    Dim myWS As Worksheet
    Dim OLEobj As OLEObject
    Dim obName As String
    Dim shName As String

    'you could easily set a for/each loop for all worksheets
    Set myWS = Sheet1

    shName = myWS.name

    Dim mFile As String
    mFile = "C:\Users\you\Desktop\ActiveXInfo.txt"


    Open mFile For Output As #1
    With myWS
        For Each OLEobj In myWS.OLEObjects
            obName = OLEobj.name

            Print #1, "'" + obName
            Print #1, shName + "." + obName + ".Left=" + CStr(OLEobj.Left)
            Print #1, shName + "." + obName + ".Width=" + CStr(OLEobj.Width)
            Print #1, shName + "." + obName + ".Height=" + CStr(OLEobj.Height)
            Print #1, shName + "." + obName + ".Top=" + CStr(OLEobj.Top)
            Print #1, "ActiveSheet.Shapes(""" + obName + """).ScaleHeight 1.25, msoFalse, msoScaleFromTopLeft"
            Print #1, "ActiveSheet.Shapes(""" + obName + """).ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft"

        Next OLEobj
    End With

    Close #1

    Shell "NotePad " + mFile



End Sub

*remarque: ce ne sera pas trouver des objets qui sont regroupés, malheureusement, que ce soit.

1

Le seul fiable à 100% solution de contournement est de fermer et de redémarrer Excel (y compris l'invisible cas). Toute autre solution a un problème.

C'est une des raisons pour lesquelles je éviter les contrôles lorsque cela est possible. Voir ici pour un exemple.

Ce module a été Créé par dlmille de E-E 20 Mars 2011

C'est un exercice pour stocker active-x, les paramètres de contrôle dans un classeur, une feuille de base, préservation de leurs paramètres si Excel est "bizarre" et la forme tailles vont de travers
Alors que la zone de liste a un IntegralHeight propriété dont le côté-effet d'un paramètre FALSE conservera que le contrôle d'aller de travers, et alors que les boutons de commande
ont des propriétés telles que déplacer ou dimensionner avec les cellules, etc., d'autres contrôles ne sont pas aussi gracieux.

La routine setControlsOnSheet():
1) obtient les 6 communes de paramètres de contrôle, pour chaque OLEObject (active-x) de contrôle sur la feuille active, et
2) stocke les paramètres dans un tableau de chaînes, sControlSettings(), et
3) ajoute ou met à jour un nom défini (ce qui est caché) avec ces paramètres.

Le nom défini pour chaque contrôle sur une feuille est construit sur la base de la feuille active nom et le nom de la commande (ce qui devrait créer une instance unique)

Processus:
L'utilisateur crée des contrôles vont être sur la feuille de calcul, et à tout moment, la setControlsOnSheet() de la routine peut être exécuté, soit
d'abord stocker les paramètres pour tous les contrôles, l'actualisation de ces paramètres, ou ajouter de nouveaux paramètres (comme il le fait pour tous les contrôles sur la feuille).

De soins devraient être prises pour s'assurer que tous les paramètres de "regarder à droite" (par exemple, Excel a encore à faire "bizarre", ou si l'utilisateur a réglé un à plusieurs de
son contrôle et est prêt à "sauver" leurs paramètres. Autrement, une mauvaise taille de contrôle de paramètres stockés.

Plutôt que de faire cette routine processus intensif, le ThisWorkbook de l'événement de la feuille activer sera "réinitialiser" tous les paramètres pour tous les contrôles
qui existent sur la feuille qui a été sélectionné. De cette façon, les paramètres de contrôle sur la feuille sont "restauré" à leur plus récemment les paramètres enregistrés,
ainsi, "pour toujours?", en évitant le Excel "excentrique" redimensionnement conséquence.

Comme un potentiel d'amélioration, cette application pourrait être intégré dans un module de classe dans le cadre d'un add-in, gardant ainsi tout le code de la
les utilisateurs "normaux" environnement de programmation. E. g., la fiche d'activer le recouvrement de l'événement devraient être prises en compte dans le module de classe, plutôt que de l'utilisateur
pour l'ajouter à son module ThisWorkbook.

Const CONTROL_OPTIONS = "Height;Left;Locked;Placement;Top;Width" 'some potentially useful settings to store and sustain
Function refreshControlsOnSheet(sh As Object)'routine enumerates all objects on the worksheet (sh), determines which have stored settings, then refreshes those settings from storage (in the defined names arena)
Dim myControl As OLEObject
Dim sBuildControlName As String
Dim sControlSettings As Variant
For Each myControl In ActiveSheet.OLEObjects
sBuildControlName = "_" & myControl.Name & "_Range" 'builds a range name based on the control name
'test for existance of previously-saved settings
On Error Resume Next
sControlSettings = Evaluate(sBuildControlName) 'ActiveWorkbook.Names(sBuildControlName).RefersTo 'load the array of settings
If Err.Number = 0 Then ' the settings for this control are in storage, so refresh settings for the control
myControl.Height = sControlSettings(1)
myControl.Left = sControlSettings(2)
myControl.Locked = sControlSettings(3)
myControl.Placement = sControlSettings(4)
myControl.Top = sControlSettings(5)
myControl.Width = sControlSettings(6)
End If
Err.Clear
On Error GoTo 0
Next myControl      
End Function
Private Sub storeControlSettings(sControl As String)
Dim sBuildControlName As String
Dim sControlSettings(1 To 6) As Variant ' set to the number of control settings to be stored
Dim oControl As Variant
Set oControl = ActiveSheet.OLEObjects(sControl)
'store the settings to retain, so they can be reset on demand, thus avoiding Excel's resizing "problem"
'create array of settings to be stored, with order dictated by CONTROL_OPTIONS for consistency/documentation
sControlSettings(1) = oControl.Height
sControlSettings(2) = oControl.Left
sControlSettings(3) = oControl.Locked
sControlSettings(4) = oControl.Placement
sControlSettings(5) = oControl.Top
sControlSettings(6) = oControl.Width
sBuildControlName = "_" & sControl & "_Range" 'builds a range name based on the control name
Application.Names.Add Name:="'" & ActiveSheet.Name & "'!" & sBuildControlName, RefersTo:=sControlSettings, Visible:=False 'Adds the control's settings to the defined names area and hides the range name
End Sub
Public Sub setControlsOnSheet()
Dim myControl As OLEObject
If vbYes = MsgBox("If you click 'Yes' the settings for all controls on your active worksheet will be stored as they CURRENTLY exist. " & vbCrLf & vbCrLf _
& "Are you sure you want to continue (any previous settings will be overwritten)?", vbYesNo, "Store Control Settings") Then
For Each myControl In ActiveSheet.OLEObjects 'theoretically, one could manage settings for all controls of this type...
storeControlSettings (myControl.Name)
Next myControl
MsgBox "Settings have have been stored", vbOKOnly
End If
Application.EnableEvents = True 'to ensure we're set to "fire" on worksheet changes
End Sub

0

Des problèmes similaires existent pour les Commentaires et les Formes. Une solution de contournement consiste à écrire une macro pour enregistrer le .Largeur et .Hauteur les propriétés de la feuille de propriétés de position de chaque objet sur une feuille de calcul inutilisée. Puis écrire une deuxième macro pour rétablir ces propriétés sur demande.
0

Ce qui se passait pour moi dans le passé (après ou pendant l'utilisation d'un lointain connexion à mon PC), mais j'ai dû trouver une solution pour redimensionner les boutons de commande et leurs polices à l'aide de la Workbook_WindowActivate événement (ce qui pourrait être fait par le biais d'un "réinitialiser les paramètres" bouton comme eh bien, je suppose).

De toute façon, je pensais que tout était fixé jusqu'à aujourd'hui, lorsque j'ai utilisé à nouveau un rapport lointain et deux boutons de commande ont commencé à mal se conduire. J'ai trouvé que ces 2 boutons de commande a la propriété de Placement la valeur 2 (Objet est déplacé avec les cellules) alors que j'avais fixé à 3 (Objet flottant) pour les autres dans le passé.

Mais avant de trouver cela, j'ai essayé de définir la taille de police des boutons de ce que je voulais (à travers la fenêtre de propriétés), mais Windows a été indépendamment de tout, j'ai été en utilisant, jusqu'à ce que j'ai modifié la hauteur du bouton... tout d'un coup, il lire la taille de la police de la propriété et ajusté en conséquence.

Je ne suis pas sûr de l'emplacement de la propriété est en fait une partie de la question, mais juste pour être sûr, j'utilise les 2 solutions:

(1) de placement est fixé à 3

(2) mon "auto-resize" de la fonction qui se déclenche avec la Workbook_WindowActivate événement augmente le bouton et taille de police un peu avant de diminuer de nouveau à ce qu'ils devraient. Mais peut-être que la solution de (1) serait suffisante... je n'ai pas le temps de tester maintenant. Voici le code de mon Workbook_Activate événement:
```
Worksheets(1).Shapes("CommandButton1").Top = 0
Worksheets(1).Shapes("CommandButton1").Left = 206.25
Worksheets(1).Shapes("CommandButton1").Width = 75
Worksheets(1).OLEObjects(1).Object.Font.Size = 10
Worksheets(1).Shapes("CommandButton1").Height = 21
Worksheets(1).Shapes("CommandButton1").Height = 18.75
Worksheets(1).OLEObjects(1).Object.Font.Size = 8
```
Maintenant tous fonctionne bien. M'a fallu un certain temps dans le passé pour trouver une solution sur le net. J'espère que cela va aider au moins une personne là-bas 😉

Je pense que @RuiHonori avait la meilleure réponse, mais pour moi d'obtenir mes contrôles sur tous mes feuilles à l'endroit où je voulais être - ce qui est arrivé à être de la même taille, j'ai utilisé ceci:

Sub SizeControls()
Dim myControl As OLEObject
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each myControl In WS.OLEObjects
myControl.Height = 42.75
myControl.Width = 96
Next myControl
Next WS
End Sub

Vous devez vous connecter pour publier un commentaire.