MSCI Indonesia Index, September-November 2025

18 stocks

BBCA, BBRI, BMRI, TLKM, ASII, BBNI, AMMN, AMRT, GOTO, TPIA, CPIN, INDF, KLBF, ICBP, BRPT, UNTR, DSSA, CUAN

Additions: CUAN, DSSA

Deletion: ADRO

Macro VBA Script: Add title text 'Figure 3.X' to all slides in PowerPoint

Sub AddFigureTitleToAllSlides()

    Dim sld As Slide

    Dim shp As Shape

    Dim slideIndex As Integer

    Dim titleSet As Boolean

    For Each sld In ActivePresentation.Slides

        slideIndex = sld.slideIndex

        titleSet = False

        ' Try to find and set the title placeholder if it exists

        For Each shp In sld.Shapes

            If shp.Type = msoPlaceholder Then

                If shp.PlaceholderFormat.Type = ppPlaceholderTitle Then

                    shp.TextFrame.TextRange.Text = "Figure 3." & slideIndex

                    titleSet = True

                    Exit For

                End If

            End If

        Next shp

        ' If no title placeholder, add a textbox at the top

        If Not titleSet Then

            Set shp = sld.Shapes.AddTextbox( _

                Orientation:=msoTextOrientationHorizontal, _

                Left:=50, Top:=20, Width:=600, Height:=50)

            With shp.TextFrame.TextRange

                .Text = "Figure " & slideIndex

                .Font.Size = 28

                .Font.Bold = True

            End With

        End If

    Next sld

    MsgBox "Titles 'Figure X' added to all slides.", vbInformation

End Sub

MSCI Indonesia Index, June-August 2025

17 stocks

BBCA, BBRI, BMRI, TLKM, ASII, BBNI, AMMN, ADRO, AMRT, GOTO, TPIA, CPIN, INDF, KLBF, ICBP, BRPT, UNTR

Rebalancing MSCI Edisi 2025 : Ini Deretan Siapa Masuk & Keluar!

What makes bitcoin enter bear market, according history

2011: Bitcoin plunged from $32 to $2, a staggering 94% decline. This crash was fueled by early-stage market speculation, security flaws in exchanges, and Bitcoin’s status as a relatively unknown asset.

2014-2015: The collapse of Mt. Gox, once the world’s largest Bitcoin exchange, resulted in the loss of approximately 850,000 BTC. Trader confidence took a massive hit, causing Bitcoin’s price to drop from $1,100 to under $200, an 82% decline. This event raised serious concerns about exchange security and the need for stronger regulatory oversight.

2018: The ICO boom of 2017 brought an influx of speculative projects, many of which lacked substance. As regulatory crackdowns increased and fraudulent projects were exposed, market confidence crumbled. Bitcoin tumbled from $20,000 to nearly $3,000, losing 85% of its value.

2022: A series of major industry failures, including the collapse of Terra (LUNA), the depegging of UST, and the bankruptcy of FTX, led to a widespread market meltdown. Bitcoin dropped from its all-time high of $69,000 to around $16,000, a 77% decline. This downturn was further exacerbated by rising interest rates, institutional sell-offs, and regulatory pressures.

Each bear market has had different triggers, from exchange failures and speculation to regulatory shifts and economic downturns.

Flipster Blog | Bitcoin's Bear Market: Understanding the Recent Decline

[Laptop] Screen brightness auto decrease when displaying dark color

Lenovo. Windows 10. Intel HD Graphics.

How to non-active that setting?

Launch Intel HD Graphics setting.

Choose: System > Power.

Display Power Saving, choose OFF.

Macro VBA script: Change 1st column width for all table

 Sub SetFirstColumnWidthInPicas()

    Dim tbl As Table

    Dim r As Long

    Dim desiredWidthPicas As Single

    Dim desiredWidthPoints As Single

    ' Set desired width in picas

    desiredWidthPicas = 30 ' ? Change this as needed

    desiredWidthPoints = desiredWidthPicas * 12 ' Convert picas to points

    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell doesn't exist (e.g. merged)

                With .cell(r, 1)

                    .Width = desiredWidthPoints

                End With

                On Error GoTo 0

            Next r

        End With

    Next tbl

    MsgBox "First column width updated to " & desiredWidthPicas & " picas.", vbInformation

End Sub

Macro VBA script: Change Font name and size in the 2nd column for all table

 Sub ChangeFontInSecondColumn()

    Dim tbl As Table

    Dim r As Long, c As Long

    Dim cell As cell

    Dim targetCol As Long

    Dim rng As Range

    

    targetCol = 2 ' Second column

    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell(2) doesn't exist in a row

                Set cell = .cell(r, targetCol)

                If Not cell Is Nothing Then

                    Set rng = cell.Range

                    rng.End = rng.End - 1 ' Exclude end-of-cell marker

                    With rng.Font

                        .Name = "STIX Two Text"

                        .Size = 10

                    End With

                End If

                Set cell = Nothing

                Set rng = Nothing

                On Error GoTo 0

            Next r

        End With

    Next tbl

    MsgBox "Font updated in second column of all tables.", vbInformation

End Sub

Word save to pdf, downloaded font not bold

I write a Word file using STIX Two Text, downloaded somewhere. After saving to PDF, the bold formatting is not saved in PDF version.

Solution: 

Try to save pdf using Print, choose Microsoft Print to PDF.

Tilawah pembuka Halal bi Halal

Al-Hujurat 10 & 13

Al-Maidah 7-10

Word: How to prevent Update Fields when saving

Follow these steps:
1. Save your document.
2. Press Ctrl+A. This selects your entire document.
3. Press Ctrl+F11. This "locks" all fields, so they are not updated.
4. Print your document or convert it to a PDF file.
5. Close the document without saving

Note: To 'unclocks', press Ctrl+Shift+F11.