AHoj potřeboval bych poradit, jak získat odkazy na panoramtické fotky, tak aby hned po rozkliku odkazu na fotku se fotka zobrazila 360° prohlížeči, který onedrive obsahuje. Vím že: pokud dáte za fotku.360 pak se vám fotka ihned v 360° prohlížeči zobrazí, ale pouze při kliku na konkrétní fotku přímo na onedrivu, pokud však exportuji všechny fotky jako odkaz do excelu, pak jsou tyto odkazy pouze na zobrazení celé fotky bez toho 360° prohlížeče. Dá se to nějak řešit, abych nemusel rozklikávat všechy fotky po jedné a sdílet odkazy po jednom?Děkuji Zkoušel jsem i makro v excelu, ale moc tomu nerozumím mám to z ChatGPT:Dim fso As ObjectDim myFolder As StringDim myFile As ObjectmyFolder = "https://mdpgeo-my.sharepoint.com/:f:/g/personal/danek_mdpg... "Set fso = CreateObject("Scripting.FileSystemObject")Set myFile = fso.getfolder(myFolder).FilesFor Each file In myFile If Right(file.Name, 4) = ".jpg" Then ' zde můžete použít kód na vytvoření odkazu pro každý soubor End IfNext file------------------------------------------------------------Sub InsertLinks() Dim myFolder As String Dim myFile As String Dim myPath As String Dim myURL As String Dim myWorksheet As Worksheet ' Zadejte cestu ke složce, kde jsou umístěny panoramatické fotografie. ' Například: C:\Users\Username\OneDrive\PanoramicPhotos myFolder = "https://mdpgeo-my.sharepoint.com/:f:/g/personal/danek_mdpg... " ' Získání názvu každého souboru v adresáři. myFile = Dir(myFolder… & "\*.jpg") ' Loop přes všechny soubory v adresáři. Do While Len(myFile) > 0 ' Získání úplné cesty k souboru. myPath = myFolder & "\" & myFile ' Získání odkazu k souboru v OneDrive. myURL = "https://mdpgeo-my.sharepoint.com/:i:/g/personal/danek_mdpg... " & Replace(myFile, " ", "%20") & """" ' Vložení odkazu do buňky v prvním listu. Set myWorksheet = ThisWorkbook.Sheets(1) myWorksheet.Cells(myWorksheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = myURL ' Načtení dalšího souboru v adresáři. myFile = Dir() LoopEnd Sub Ukázat celý příspěvek