keuzeknopje van documenten voor office 2007

[bontekite]

We zijn sinds kort overgegaan van excel 2007 naar 2010 en de excel bladen die aangemaakt zijn met excel 2003 of eerder geven bij het openen van dit bestand een keuzeknopje welke ondersteboven en gespiegeld is .

met documenten die aangemaakt zijn met office 2007 hebben we geen problemen .

wat kan hiervan de oorzaak zijn:
dit is op te lossen door alle knoppen opnieuw te confugureren maar dat is nogal wat werk is dit een bug en is dit met een conversie programma te verhelpen?

Ben

 

[sylvester-ponte]

hallo Ben
ik ken dit niet
stuur een een eenvoudig voorbeeldje waar bij dat voorkomt.
groet sylvester

 

[bontekite]

voorbeeld van het knopje

Hier twee afbeeldingen van de het knopje van een document gemaakt in 2003 of eerder.
en nu opgestart met office 2010 (netwerkversie)

naamloos is als je op het knopje klikt dan lijkt alles normaal

Bekijk bijlage naamloos.bmp

als je een selectie hebt gedaan dan komt het er zo uit te zien.gespiegeld en achterste vooren.

Bekijk bijlage naamloos1.bmp

Hierbij ook het bewuste excel knopje gemaakt met office 2003 of eerder

ik heb nog pogingen gedaan om op office 2007 het op te slaan met verschillende extensies XLSX xls enz maar dat maakte allemaal niets uit.

 

[sylvester-ponte]

Ben, als je deze macro een keer runt moet het over zijn
deze macro maakt nieuwe dropdowns en verwijderd de oude
wel eerst een copy maken van je bestand (je weet maar nooit)
groet sylvester

Sub Macro1()
    Dim D, Sh As Worksheet
    For Each Sh In Sheets
        Sh.Select
        For Each D In Sh.DropDowns
            If Right(D.Name, 5) <> "Nieuw" Then
                Sh.DropDowns.Add(255.75, 48.75, 126.75, 71.25).Select
                With Selection
                    .ListFillRange = D.ListFillRange
                    .LinkedCell = D.LinkedCell
                    .DropDownLines = D.DropDownLines
                    .Top = D.Top
                    .Height = D.Height
                    .Width = D.Width
                    .Left = D.Left
                    naam = D.Name & "Nieuw"
                    D.Delete
                    .Name = naam
                End With
            End If
        Next D
    Next Sh
End Sub

 

[bontekite]

knopje inhoud

Inmiddels werkt het met wat gepuzzel want hij gaf een foutmelding aan. De code aangemaakt te hebben in office 2010 werkte het wel (een conflict met bibliotheek die hij niet kon vinden).

nu had iknog een vraagje of het mogelijk is om de text die in het keuzevakje geselecteerd was ook weer terug gezet kan worden nu krijg ik allemaal lege vakjes.

gr Ben

 

[sylvester-ponte]

zo neemt hij ook de waarden over:

Sub Macro1()
    Dim D, Sh As Worksheet
    For Each Sh In Sheets
        Sh.Select
        For Each D In Sh.DropDowns
            If Right(D.Name, 5) <> "Nieuw" Then
                Sh.DropDowns.Add(255.75, 48.75, 126.75, 71.25).Select
                With Selection
                    .ListFillRange = D.ListFillRange
                    .Value = D.Value
                    .LinkedCell = D.LinkedCell
                    .DropDownLines = D.DropDownLines
                    .Top = D.Top
                    .Height = D.Height
                    .Width = D.Width
                    .Left = D.Left
                    naam = D.Name & "Nieuw"
                    D.Delete
                    .Name = naam
                End With
            End If
        Next D
    Next Sh
End Sub

groet sylvester

ps deze macro moet in exel 2010 gedraaid worden