EXCEL: Kép-Leírás

Microsoft Windows

Szisztok!

Van egy 100 soros excel táblám amivel dolgozom kell!
Az egyik oszlopot úgy kaptam meg, hogy az adatok helyett egy kép van, ami "titkolja" a cella tartalmát, na most, ha én a kép formázása/helyettesítő szöveg lehetőségre kattintok, ott a Leírásban megvan az adat valódi értéke, honnan tudnám ezeket egyszerre megjeleníteni, egyenként megnézni és kimásolni majd beilleszteni agyrém!

Köszönöm!

  • 5069 megtekintés

( mrceeka v | 2014. 05. 18., v – 22:33 )

Hello,

készítettem egy deszkamodellt: http://aka.ms/hup-alttext (Excelben nyisd meg, webappban nem fog menni a makró.)
Ez a Button1 megnyomására a Sheet1 összes képéhez (pontosabban Shape-ekhez) listázza Sheet2 A és B oszlopába a Title és AlternativeText mezők tartalmát.
Ennyi a VBA kód: 


Sub Button1_Click()
    Dim Pic As Object
    Dim i As Integer
    i = 2
    For Each Pic In Sheets("Sheet1").Shapes
        Sheets("Sheet2").Range("A" & i).Select
        ActiveCell.FormulaR1C1 = Pic.Title
        Sheets("Sheet2").Range("B" & i).Select
        ActiveCell.FormulaR1C1 = Pic.AlternativeText
        i = i + 1
    Next Pic
End Sub

Üdv,
Marci

még most sem jó ...
https://dl.dropboxusercontent.com/u/3436492/excel_hiba.jpg
https://dl.dropboxusercontent.com/u/3436492/excel_hiba2.jpg

Így viszont nekem ment : 


Sub Button1_Click()
    Dim Pic As Object
    Dim i As Integer
    i = 2
    For Each Pic In Sheets("Sheet1").Shapes
        Sheets("Sheet2").Range("A" & i).Select
        ActiveCell.FormulaR1C1 = Pic.AlternativeText
        i = i + 1
    Next Pic
End Sub