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:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
| Sub ChangeTagComplexe (StrRch () als Koord, TypObj als Geheel)
'met geselecteerde grafieken, bepaalt de macrolooppas door elk informatieblad van elke grafiek en hoeveel rijen en kolommen in grafiek inbegrepen zijn
de 'asteric ketting is waar wij zullen toevoegen functie vervang om uit te voeren vervangen op elke cel in het informatieblad van de grafiek
'TypObj = 1 = selecteerde voorwerpen
'TypObj = 2 = alle voorwerpen
'TypObj = 3 = grafiek
'TypObj = 4 = textbox
'TypObj = 5 = wordart
'TypObj = 6 = het Voorwerp van Excel
De 'variabelen van objecten
Schemerige oGraphChart als Voorwerp
Schemerige oDatasheet als Voorwerp
Schemerige oSh als Vorm
'Variabelen Misc
Schemerige lCol zoals lang
Schemerige lRow zoals lang
Schemerige LastCol zoals lang
Schemerige LastRow zoals lang
Schemerig X zoals lang
Schemerig C, CC, CCC zoals lang
Schemerige MaxRows zoals lang
Schemerige MaxColumns zoals lang
Schemerige Nom_Obj () als Koord
C = ActiveWindow.Selection.ShapeRange.Count
ReDim Nom_Obj (C + 1)
Voor CC = 1 aan C
Nom_Obj (CC) = ActiveWindow.Selection.ShapeRange (CC). Naam
Volgende CC
Voor CC = 1 aan C
'voor elk voorwerp op dia
ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActiveWindow.Selection.ShapeRange (Nom_Obj (CC)). Selecteer
Plaats oSh = ActiveWindow.Selection.ShapeRange (1)
Als oSh.Type = msoEmbeddedOLEObject en (TypObj = 1 of TypObj = 2) toen
'geef datagrid in grafiek uit
MaxRows = 100
MaxColumns = 100
Reeks oGraphChart = oSh.OLEFormat.Object
Reeks oDatasheet = oGraphChart.Application.datasheet
Met oDatasheet
'Vind LastRow
Voor X = 1 aan MaxRows
Als. Rijen (X). Omvat dan
LastRow = X
Eind als
Volgende X
'Vind LastCol
Voor X = 1 aan MaxColumns
Als. Kolommen (X). Omvat dan
LastCol = X
Eind als
Volgende X
'Vul de gegevens in
Voor lCol = 0 aan LastCol - 1
Voor lRow = 0 aan LastRow - 1
Als lCol = 0 toen
Voor CCC = 1 tot 25
Als CStr (StrRch (CCC, 1)) <> "" toen
Als FrmTagRepl.CaseTrue = Waar toen
. Waaier („0“ & CStr (lRow)). De waarde = vervangt (. Waaier („0“ & CStr (lRow)). Waarde, StrRch (CCC, 1), StrRch (CCC, 2))
Anders
. Waaier („0“ & CStr (lRow)). De waarde = vervangt (. Waaier („0“ & CStr (lRow)). Waarde, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
Eind als
Eind als
Volgende CCC
Anders
Voor CCC = 1 tot 25
Als CStr (StrRch (CCC, 1)) <> "" toen
Als FrmTagRepl.CaseTrue = Waar toen
. Waaier (Chr (96 + lCol) & CStr (lRow)). De waarde = vervangt (. Waaier (Chr (96 + lCol) & CStr (lRow)). Waarde, StrRch (CCC, 1), StrRch (CCC, 2))
Anders
. Waaier (Chr (96 + lCol) & CStr (lRow)). De waarde = vervangt (. Waaier (Chr (96 + lCol) & CStr (lRow)). Waarde, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
Eind als
Eind als
Volgende CCC
Eind als
Volgende lRow
Volgende lCol
Eind met
oSh.OLEFormat.DoVerb index: =1
'ActiveWindow.Selection.SlideRange.Shapes.SelectAll
ActivePresentation.Save
het 'eind geeft datagrid in grafiek uit
oGraphChart.Application.Quit
ElseIf (oSh.Type = msoTextBox of oSh.Type = msoPlaceholder of oSh.Type = 1) en (TypObj = 1 of TypObj = 3) Dan
'geef tekstvakje uit
Voor CCC = 1 tot 25
Als CStr (StrRch (CCC, 1)) <> "" toen
Als FrmTagRepl.CaseTrue = Waar toen
oSh.TextFrame.TextRange.Text = vervang (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2))
Anders
oSh.TextFrame.TextRange.Text = vervang (oSh.TextFrame.TextRange.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
Beëindig als
Beëindig als
Volgende CCC
ElseIf oSh.Type = msoTextEffect en (TypObj = 1 of TypObj = 4) toen
Voor CCC = 1 tot 25
Als CStr (StrRch (CCC, 1)) <> "" toen
Als FrmTagRepl.CaseTrue = Waar toen
oSh.TextEffect.Text = vervang (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2))
Anders
oSh.TextEffect.Text = vervang (oSh.TextEffect.Text, StrRch (CCC, 1), StrRch (CCC, 2), vbTextCompare)
Beëindig als
Beëindig als
Volgende CCC
ElseIf oSh.Type = 6 en (TypObj = 1) toen
'*********************************************
de 'code moest hier het ingebedde voorwerp van Excel uitgeven
'1: bepaal de laatste kolom en de rij van actief blad
'2: ga over elke cel en presteer vervangen functie
'*********************************************
Eind als
Volgende CC
Sub van het eind
|
