Muharrem DOĞANCI: Ekim 2021

28 Ekim 2021 Perşembe

İstanbul, Fatih, Emin Sinan Mahallesi, Satır Sokağında Adsız Bir Çeşme

28.10.2021 Perşembe, 16:29 tarihinde İstanbul, Fatih, Emin Sinan Mahallesi, Satır Sokağı çıkışında, bir bina parseli arasına sıkıştırılmış bir çeşme ile karşılaştık.

Kitabesinde Enbiyâˀ sûresinin 30. ayetinin bir kısmı hakkedilmiştir.

[“…]ve ceˁalnâ mine’l-mâˀi külle şeyˀin ḥayy[…”]
[“…Hayatı olan her şey'i sudan yarattık…”
1222 [1807-1808]

Konum: https://goo.gl/maps/sL5A3UGssR1cbtiq6
Google sokak görünümü, 2020: https://goo.gl/maps/ZQw8qhAsEpgJay6D9
Yandex sokak görünümü, 2011: https://yandex.com.tr/harita/115707/fatih/geo/satir_sok_/2383302564/?from=morda_new&ll=28.970493%2C41.006369&panorama%5Bdirection%5D=45.305833%2C-3.662467&panorama%5Bfull%5D=true&panorama%5Bid%5D=1246556408_806599811_23_1310915915&panorama%5Bpoint%5D=28.970302%2C41.006377&panorama%5Bspan%5D=97.759894%2C60.000000&source=yamain_maps&z=21

Dizdariye Camii Haziresi

28.10.2021 Çarşamba, 16:23 tarihinde, iş dönüşü sırasında Dizdariye Çeşmesi sokağından geçerken Dizdariye Camii'ne uğradık. Küçücük dolambaçlı avlusunu gezerken tek başına bir kabirle karşılaştık.

Photoshop ile tebeşirlenmiş hali.

Mezar taşı transkripsiyonu: Hüve’l-Bâḳī
Ayvacıklı İsmâˁîl
Efendi[’]niñ maḫdûmı
ṭalebe-i ˁulûmdan
merḥūm ve mağfuru[-]
’l-muḥtâc ilâ raḥmeti
rabbi-hi’l-Ġafûr[i.] Ḥasan
Efendi[’]niñ rûḥına fâtiḥa
Sene 1275 [Miladi 1858-1859]

Kabrin konumu: https://goo.gl/maps/4EsG2sXg7TJR5atj6
Sokak görünümü: https://goo.gl/maps/4VPKoGZzybaYsR1i8

25 Ekim 2021 Pazartesi

Geliş Temaları

Geliş temalı vidyolar:

Baykuşun gelişi.
Kaynak: https://www.instagram.com/reel/CUVcb2Gj8h3/?utm_medium=share_sheet

Kedinin kabararak gelişi:

Kaynak: https://www.instagram.com/reel/CeT8ipnjMjk/?igshid=MDJmNzVkMjY=

Çöküş Temaları

Çöküş temalı vidyolar:

Tribündeki taraftarların tepinmesi sonucu çöküş.
Kaynak: https://www.instagram.com/reel/CVLODfUoaCj/?utm_medium=share_sheet

Gemide 🚢 Ayakta Kalabilmek

Gemide ayakta kalabilmek konusu için güzel bir vidyo:

Kaynak: https://www.instagram.com/reel/CVF9DnAjzKi/?utm_medium=share_sheet

24 Ekim 2021 Pazar

Kravat 👔 Bağlamak

Paylaşımın nereden yapıldığını net olarak bilmiyorum. Kısa yoldan kravat bağlama yöntemlerinden biri.

Kaynak: https://www.instagram.com/reel/CUIjECLqRxs/?utm_medium=share_sheet

İstanbul Üniversitesi Merkez Kampüsünde Ana Yol Kenarındaki Çınarlar

2020'den önce sağ olduğunu hatırladığımız İstanbul Üniversitesi, merkez kampüsünde ana yol kenarındaki çınarlar, bir bahar döneminde yaprak vermemiş, kuruma belirtileri göstermiş, pandemi kısıtlamalarından sonra kesilmişti.

Daha önceki tarihlere ait fotoğraflara baktığımızda, bu çınarların öğle vakti yolun üstünü gölgeyle kapladığını gördük.

Oktay TÜRKOĞLU, bu ağaçların, 1920'li yıllarda İstanbul Üniversitesi rektörü tarafından dikildiğini aktardı.

İşte ağaçların kesilmeden önceki halleri.

Uydu görüntülerinde kaba taslak değişimi özetlemeye çalıştık. Yeni dikilen ağaçlardan önce, ağaç kök sayısı kaydına ulaşılamadığı için, net sayıyı bilmiyoruz.

Kaynak:
Yandex. 2019. https://yandex.com.tr/harita/115707/fatih/?l=sat&ll=28.964532%2C41.012190&z=19

22 Ekim 2021 Cuma

T.C. Sağlık Bakanlığı Avcılar 2 No'lu Aile Sağlığı Merkezi

13 Ekim 2021 Çarşamba

Adobe CC 2021 Ürünlerinin Arayüz Dilini İngilizceye Çevirmek

Photoshop CC 2021 kurulumundan sonra, dili İngilizce yapmak:
Kaynak: https://youtu.be/nmcAVeDWRN8

Illustrator CC 2021 kurulumundan sonra, dili İngilizce yapmak:
Kaynak: https://youtu.be/IqObt0Zydn4
Dil paketi "AdobeIllustrator25-en_AE.zip" dosyasını buradan indirebilirsiniz:
https://drive.google.com/file/d/17VEh2Krtn-KGpF2THS8P-vJOwYN9OTOD/view

9 Ekim 2021 Cumartesi

Microsoft Office Word İçindeki Linkleri Dışarı Aktarmak

Tüm Linkleri Kopyalamak

Sub HyperlinksExtract()
'Updateby20140214
    Dim oLink As Hyperlink
    Dim docCurrent As Document 'current document
    Dim docNew As Document 'new document
    Dim rngStory As StoryRanges
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
     
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

Tüm Linkleri Yeni Belgeye Çıkarmak

Function GetAllHyperlinks()
'Updateby20140214
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        Set rng = docNew.Range
        rng.Collapse
        rng.InsertParagraph
        rng.InsertAfter (oLink.Address)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function

Kaynak: https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html#a1

Bu Blogda Ara