Cum copiez un buton

[adof]

sal

am creat pe calculatorul de acasa mai multe butoane personalizate în bara cu butoane de la Exel

cum pot copia acele butoane şi pe alte calculatoare dupa care sa modific Macrocomanda asociata

sal

[Dr. Cloud]

1. Nu este de Tips & Tricks;
2. Nu ai specificat versiunea de Excel;
3. Trebuie să intri în Design Mode sau să execuţi click dreapta pe buton pentru a intra în Design Mode.
Apoi cu Copy-Paste îl multiplici.

[Dr.Windows]

Pana la specificarea versiunii de Excel am mutat eu subiectul in sectiunea Excel 2003 avand in vedere "istoricul utilizatorului"... desi nu ma asteptam la asa ceva (postarea in forumul necorespunzator) din partea unui utilizator atat de vechi...

[adof]

sal

versiune de Exel 2000

doresc sa il copiez de pe calculatorul de acasa pe calculatorul de la serviciu


nu merge cu Copy-Paste

butonul este creat din Vizualizare -bara de instrumente-particularizare-Comenzi-macrocomenzi-buton particularizat

dupa care
editare imagine şi asociere macrocomanda
sal

[Dr. Cloud]

Păi îl copiezi dintr-un workbook în altul.
Nu ai cum să îl salvezi, adică să îl exporţi.
Cu copy-paste îl poţi pune doar într-un alt workbook sau în acelaşi, dar nu îl poţi salva ca un form sau ca un fişier separat.

[Dr.Windows]

O alta varianta ar fi sa copiezi fisierul cu extensia XLB (este fisierul in care se salveaza setarile de toolbaruri) din folderul C:\Documents and Settings\NumeUtilizator\Application Data\Microsoft\Excel dar si fisierul cu macrourile exact in aceleasi foldere.

[adof]

butonul se refera la Macrocomenzi care le folosesc într-un singur fisier

[Dr. Cloud]

Tu nu înţelegi ce se scrie aici, deloc.

Acel buton fie îl preiei cu copy-paste din workbook-ul original şi îl pui în cel dorit.
Apoi, copiezi sau exporţi codul macro şi îl adaugi în celălalt workbook.
Sau, faci cum a zis Lucian.

[Dr.Windows]

Si ca sa complicam si mai mult problema, o varianta si mai "eleganta" ar fi sa creezi toolbarul din VBA... si atunci nu mai ai nimic de facut...
Mai ales daca aceste macrocomenzi se afla in fisierul PERSONAL.XLS (daca vrei sa fie valabile pentru orice alt workbook deschis) doar va trebui sa copiezi codul corespunzator in fisierul PERSONAL.XLS de pe PC-ul tinta (sau daca fisierele sunt identice se copiaza fisierul cu totul)

Si atunci ai avea urmatorul cod pentru crearea toolbarului:

Cod: Selectaţi tot

Sub Create_Menubar()

    Dim i As Long
    
    Dim arrMacros As Variant
    Dim arrCaptions As Variant
    Dim arrTips As Variant
        
    Call Remove_Menubar
    
    arrMacros = Array("macro1", _
                      "macro2", _
                      "macro3")
                      
    arrCaptions = Array("caption 1", _
                      "caption 2", _
                      "caption 3")
                      
    arrTips = Array("tip 1", _
                     "tip 2", _
                     "tip 3")
    
    With Application.CommandBars.Add
        .Name = "MyToolbar"
        '.Left = 100
        '.Top = 100
        .Protection = msoBarNoProtection
        .Visible = True
        .Position = msoBarTop 'Pentru o bara "zburatoare" poti folosi msoBarFloating si atunci sunt importante valorile .Top si .Left
        
        For i = LBound(arrMacros) To UBound(arrMacros)
            With .Controls.Add(Type:=msoControlButton)
                .OnAction = ThisWorkbook.Name & "!" & arrMacros(i)
                .Caption = arrCaptions(i)
                .Style = msoButtonIconAndCaption
                .FaceId = 71 + i
                .TooltipText = arrTips(i)
            End With
        Next i
    End With
End Sub

Ca sa nu lasi mizerii poti sa pui si procedura de stergere pentru acel toolbar:

Cod: Selectaţi tot

Sub Remove_Menubar()
    On Error Resume Next
    Application.CommandBars("MyToolbar").Delete
    On Error GoTo 0
End Sub

Apoi ar trebui adaugat urmatorul cod in ThisWorkbook (din PERSONAL.XLS):

Cod: Selectaţi tot

Private Sub Workbook_Open()
    Call Create_Menubar
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call remove_menubar
End Sub

Si daca vrei sa si testezi mai adauga si macrourile 1-3 pe care le-am folosit in crearea toolbarului de mai sus:

Cod: Selectaţi tot

Sub macro1()
    MsgBox "Hello 1"
End Sub

Sub macro2()
    MsgBox "Hello 2"
End Sub

Sub macro3()
    MsgBox "Hello 3"
End Sub

[adof]

e tot mai GREU

acum invat VBA

era frumos cu copy paste

multumesc pt cod am sa vad cum ma descurc