Příspěvky uživatele

(object msolinkedOLEobject) ja som si to tiez presiel cele cez WATCH a taktiez som tam tie data nenasiel. Len by ma fakt zaujimalo ako je mozne ze to ten office vie znazornovat lebo to nieje obrazok ale pozliepane shape objecty ... a tie musia mat nejake vlasnosti

ine riesenie:
problem je v tom ze inak sa to riesit neda ide o to ze nam na pracovisko dojdu prezentacie s roznymi grafmi (klient nam nedava casto linksource ... musime si pomahat s pravitkami :))) a tymto addinom by som chcel spolupracovnikom ulahcit robotu zatial ju mam hotovu len na 80percent (20percent je ten object msolinkedOLEobject) ... ale uz som tam dal len msgbox this object is not possible convert :P

mne staci len male postrcenie

napriklad: myShape.Chart.MagicSource a tam su tie udaje co potrebujes. Samozrejme to bol len priklad co sa na pravde nezaklada. Nechci nejake prelomove riesenie :) to uz si dokoncim sam

a co sa tyka prikladov na moje otazky myslim ze vacsina ich ma .... len nemozem zato ze su tak tazke ... mozno ze sa zle vyjadrujem a za to sa fakt ospravedlnujem

tiez pravda len si to pripravit zabere 30minut :)

prikladam prilohu .... je tam aj vystup do excelu

to davam tak tazke otazky ze zatial som ani na jednu nedostal odpoved? :)

no domace ulohy zo skoly casto nerobim :)) ale dnes som sa nudil tak som sa nato kukol a aj tak to nieje dokoncene

ked chces tu mas dobry start
- je to len nahodne priradenie cisla k dnu
- neopakuju sa

Sub test()
Dim aNummer As Integer
Dim NumCheck As Boolean
Dim num1A As Boolean
Dim num2B As Boolean
Dim num3C As Boolean
Dim num4D As Boolean
Dim num5E As Boolean
Dim num6X As Boolean
Dim num7X As Boolean

NumCheck = False
num1A = False
num2B = False
num3C = False
num4D = False
num5E = False
num6X = False
num7X = False

For x = 6 To 370
Do While NumCheck > True
aNummer = Int((7 - 1 + 1) * Rnd + 1)
Select Case aNummer
Case 1
If num1A = False Then
Cells(x, 3) = "A"
num1A = True
NumCheck = True
End If
Case 2
If num2B = False Then
Cells(x, 3) = "B"
num2B = True
NumCheck = True
End If
Case 3
If num3C = False Then
Cells(x, 3) = "C"
num3C = True
NumCheck = True
End If
Case 4
If num4D = False Then
Cells(x, 3) = "D"
num4D = True
NumCheck = True
End If
Case 5
If num5E = False Then
Cells(x, 3) = "E"
num5E = True
NumCheck = True
End If
Case 6
If num6X = False Then
Cells(x, 3) = "X"
num6X = True
NumCheck = True
End If
Case 7
If num7X = False Then
Cells(x, 3) = "X"
num7X = True
NumCheck = True
End If
End Select
If num1A = True And num2B = True And num3C = True And num4D = True And num5E = True And num6X = True And num7X = True Then
num1A = False
num2B = False
num3C = False
num4D = False
num5E = False
num6X = False
num7X = False
End If
Loop
NumCheck = False
Next
End Sub

Ahojte experti,

Je nejak mozne nacitat linked data ktore nemaju pristup k zdroji???

pri msoChart sa mi to uz podarilo nacitat ale da sa to aj pre msolinkedOLEobject????

msoChart: ... kod je pisany pre powerpoint

For Each aShape In ActiveWindow.Selection.ShapeRange
Set myShape = aShape
Select Case myShape.Type
Case msoChart
ReDim c(myShape.Chart.SeriesCollection.Count, myShape.Chart.SeriesCollection(1).Points.Count)
For Each aName In myShape.Chart.SeriesCollection(1).XValues
c(0, y) = aName
y = y + 1
Next
y = 1
For Each aCollection In myShape.Chart.SeriesCollection
Set myCollection = aCollection
c(x, 0) = aCollection.Name
For Each aValues In myCollection.Values
c(x, y) = aValues
y = y + 1
Next
y = 1
x = x + 1
Next
Case Else
MsgBox ("Nepojde object je: " & myShape.LinkFormat.SourceFullName)
End Select

Next

jedine to spustim takto ked nastavim:

Options.DefaultFilePath(Path:=wdStartupPath) = "C:\Addins\"

tu je to krajsie popisane:
http://office.microsoft.com/en-us/word-help/load-or-unload-a-template-or-add-in-program-HA010105537.aspx

Ahojte,

Uz mam par add-ins pre powerpoint, excel za sebou ale toto je moj prvy add-ins pre word, ktory pri prvom nacitani funguje ALE ked vypnem word a zapnem ho tak ho nenacita ..... netusite preco???

a ani pri uvodnom startupe wordu ... neprebieha snaha ho nacitat

tiez som k tomu zaveru dosiel

Excel: (xl je pre excel)
http://msdn.microsoft.com/en-us/library/office/ff838781.aspx

Word: (wd je pre word)
http://msdn.microsoft.com/en-us/library/office/aa211930(v=office.11).aspx

PowerPoint(som nasiel len toto):
http://msdn.microsoft.com/en-us/library/office/aa271610(v=office.11).aspx

takze uz len ostava urobit si vlastny dialog :) co uz som si urobil

Ahojte,

Potreboval by som poradit da sa nejakym sposobom v WORD-e alebo v Power Point-e zapnut dialogove okno xlDialogEditColor??

za kazdu radu vopred dakujem ... a aj za ine napady

a nemas tam font zle nastaveny?

asi tu nikto nerobil este s ribbon-om???

-v prilohe je lepsi priklad uz tam je aj moznost vyberu farby a zmena (funguje len pre excel 2007+)

tu mas riesenie s makrom

Ahojte,
vytvoril som si tlacitko ktore je spojene cez splitbutton, ale nie je uplne dobre. Chcel by som ho vytvorit tak aby lava strana tlacitka pustila aktualnu farbu a prava strana ukazala galleriu farieb. Da sa to nejak spravit??????

prikladam subor kde je to lepsie vidiet

jo tam je pekny navod ako zmenit colors(56) alebo colorindex alebo themecolor :)))) ale nieje tam ako zmenit standard color .... a to prave chci zmenit

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje