テスト結果 以下テストコード Sub 四角形グラデーションテスト() Dim r As Range Set r = ThisWorkbook.Worksheets("Sheet1").Range("A2") Do While r.Value <> "" With r.Interior .Pattern = xlPatternRectangularGradient '四角形 With .Gradient 'グラデ…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。