Questione : Domanda di procedura dei DOM

Devo risolvere una procedura che prende uno schermo fisico delle coordinate, delle larghezze e delle altezze della scatola, tutto il DIVs e risolve una gerarchia dell'oggetto basata sul “contiene„ il genere di relationship.

The di domanda che devo fare sono, dato un fiammifero su una determinata parte di testo nel documento, devo fare la domanda: che divisione la contiene? che divisione contiene quella divisione? ecc. Tutti basati su coordinates.

I si sono domandati se ci fossero una procedura standard per la costruzione deuna tal gerarchia da così struttura piana delle coordinate assolute e sizes. class= del

Risposta : Domanda di procedura dei DOM

Provare questo
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub la conduttura ()
SetupToPrint “TUTTE LE vendite„
SetupToPrint “nuove vendite„
SetupToPrint “vecchie vendite„
Sommergibile dell'estremità

SetupToPrint secondario riservato (SH come stringa)
    
    Strati (SH). Attivare
    Denominare SetPrintAreaToPivotTable
    Denominare SetPageBreakToXNumberOfRows

Concludere il sommergibile

SetPrintAreaToPivotTable secondario riservato ()

    Con ActiveSheet
        lPTcells = .PivotTables (“PivotTable1„) .DataBodyRange.Cells.Count
        Regolare il rngTopLeft = .PivotTables (“PivotTable1„) .RowRange.Cells (1)
        Regolare il rngBotRight = .PivotTables (“PivotTable1„) .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & “: „ & l'indirizzo dello strPT di rngBotRight.Address 'non esiste!
        .PageSetup.PrintArea = strAddress
    Estremità con

Sommergibile dell'estremità

SetPageBreakToXNumberOfRows secondario riservato ()

    Lastrow fioco come lungamente
        Row_Index fioco come lungamente
        Il RW fioco come lungamente
    
        'Quante file volete fra ogni rottura di pagina
        Il RW = 48
        
        Con ActiveSheet
            'Rimuovere tutto il PageBreaks
            .ResetAllPageBreaks
            
            'Cercare l'ultima fila con i dati in colonna D
            Lastrow =. Cellule (Rows.Count, “D„). Estremità (xlUp). Fila
            
            Per Row_Index = il RW + 2 al punto RW di Lastrow
                .HPageBreaks.Add prima: =.Cells (Row_Index, 1)
            Dopo
    Estremità con

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us